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2 1. ABSTRACT 

a ORMA FACI Fi 

‘ IESE SER SER RO Rare ain mae me 
SPECIFIES ITS IATED DATA 

100 

it 

tie IN THE FORMAT OPERATION, THE PROGRAM WRITES THE HEADER OF EACH 

104 DATA BLOCK WITH A CYLINDER NUMBER AND SECTOR NUMBER; 

105 WRITES THE DATA FI ies Sey 

106 THE BBocten THEN DATA Bi bexs VIA EXECUTING THE 

1 “WRITE CHECK 

108 

fd 

lil IN THE CHECK OPERATION THe PROGRAM REPEAT S THE FORMAT OPERATION 

ile THREE TIMES WITH DATA PAT BEING ROTATED ONE BIT AT EACH 

114 : 

115 

116 2 REQUIREMENTS 

118 

113 2.1 EQUIPMENT 

1 PDP-11 PROCESSOR 

is 

124 PROGRAM LOAD DEVICE 

12s KW11 KW11-P CLOCK 

-j RH11 OR RH70 WITH 1-- 8 RMO3 DISK DRIVES 

17 DISK PACK(S) ‘ 

129 2.2 PRELIMINARY PROGRANS 

13? THERE ARE NO PREQUISITE PROGRAMS PROVIDING THE RMO3 SUBSYSTEM 

132 KNOWN TO BE OPERATIONAL. IF THE STATE OF THE RMO3 SUBSYSTEM IS UNKNOWN 

133 THE FOLLOWING PROGRES BE RUN PRIO TO USING THE FORMATTER PROGRAM 

1 RMO3 § DISKLESS DIAGNOSTIC 

136 RMO3 § FUNCTIONAL TEST 

137 

138 3. LOADING PROCEDURES 

140 

14} 3.1 PAPER TAPE AND XXDP 

143 THE PROGRAM MAY BE LOADED FROM PAPER TAPE USING THE ABSOLUTE 

144 LOADER OR IT MAY BE LOADED FROM ’XXDP’ MEDIA USING THE APPROPRIATE 

14S LOADER. 

LHe 

ts 3.2 APT 

149 7 
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3.3 


THIS PROGRAM IS APT COMPATIBLE TO THE EXTENT THAT APT HOOKS WILL 
BE IN THE PROGRAM AND WILL WORK THRU THE "OPTION INTERFACE’. 


FOR OTreR irre ote. rer APT MAY ONLY LOAD AND START THE PROGRAM. 
AUTOMATIC MODE (MONITOR) 


* ALOGUE IS : 

A: AE REV BIRO R SSCRMRGEER svmennr vecron 1 

DUMP MODE: INPUT DIALOGUE AFTER PROGRAM STARTS 

APT ETABLE DEFINITIONS | 

THE FOLLOWING DEFINITIONS ARE VALID FOR SPECIFYING APT 

me RONMENTAL TABLE (ETAB ) ENTRIES,VIA RUNNING _ 
APT UTILITY : 


SOFTWARE ENVIRONMENT : 


= 1 IF APT SCRIPT MODE 
= 0 IF STANDLONE. MODE 


2. ENVIRONMENT MODE: 


BIT 7 = BRoghin Does SfZINc 


BIT & = 1 SPOOL —— TO APT IF SCRIPT MODE - 
= 4 DON’T SPOOL’ TO APT 
SUPPRESS CONSOLE OUTPUT 


BITS =1 
= 0 ALLOW CONSOLE OUTPUT 


BIT 4 TO BIT O ARE NOT USED 
3. ire 1 (SOFTWARE SWITCH REGISTER) 


4. SWITCH 2 (USER SWITCH REGISTER) 
NOT USED 

S. CPU OPTIONS 
NOT USED 

6. MEMORY TYPES 1-4 AND MAX MEMORY ADDRESSES 
NOT USED 

7. INTERRUPT VECTOR 1 
BRED WHEN ENVIRONMENT MODE BIT 7 = 1;DEFAULT = 254 

BUS PRIORITY 1: 

NOT USED. 


SEQ 0004 
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9. INTERRUPT VECTOR 2: 
NOT USED 


Seu i 


10. BUS PRIORITY 2: 
NOT USED 


210 
ell 
gle 11. BASE ADDRESS: 
els USED WHEN ENVIRONMENT MODE BIT 7 = 1;DEFAULT = 176700 
215 12. DEVICE MAP: 
216 USED WHEN ENVIRONMENT T 7 = 1. EACH BIT SET TO 
217 IN BITS 0 T0 7 Uj, SetecT Te CORRESPONDING DRIVE 
ei8 O BE TESTED. BITS ARE NOT 
220 13. CONTROLLER DESCRIPTOR WORDS: 
eel USED ENVIRONMENT MODE BIT 7 = 1. ANY NONE ZERO 
gee NUMBER SPECIFIES THAT PROGRAM RUNS IN CHECK MODE. 
2o4 14. CONTROLLER DESCRIPTOR WORDS: 
eS USED WHEN ENVIRONMENT MODE BIT ANY NONE ZERO 
gob NOHDER SPECTETES THAT PROGRAM SELECTS 30 SECTORS 
FOR A IN ALL OPERATIONS. 
228 
229 
230 
231 
ese 4, STARTING PROCEDURES 
234 
a3 4.1 STARTING ADDRESSES 
237 THE PROGRAM IS STARTED FROM LOCATION 200(8) IF THE ADORESS OF THE 
e398 RH11 OR RH70 WILL NOT BE CHANGED FROM ITS DEFAULT VALUE OF 176700. 
240 
241 D FROM LOCATION 204(8) IF THE ADDRESS OF 
ee THe Rat Ri ORR CHANGED FROM THE PRELOADED VALUE. 
et3 / “Ag <"Loroes So Bou “TS VALID ONLY ONCE APTER THE 
et6 (SE SECTION a3). 
a7 4.2 OPERATION ACTION 
ed 1. LOAD THE PROGRAM INTO MEMORY (SEE SECTION 3). 
eh 2. LOAD THE STARTING ADDRESS - 200(8) OR 204(8). 
633 3. SET THE SWITCHES AS REQUIRED AND PRESS ‘START’. 
255 IF THIS 1S THE PROGRAM'S FIRST START, THE STATUS OF THE DRIVES 
256 SELECTED MASSEUS SUBSYSTEM W WICL BE TYPED OUT. THIS TYPEOUT 
535 HE INHIBITED ON SUBSEQUENT STARTS BY SETTING SW<O2>. 
go8 4. THE PROGRAM WILL THEN TYPE THE FOLLOWING MESSAGE: 


*PROGRAM MODE (C OR F):’ 


8 
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Pa aa TERI HE “contin etuae ge puree 
TO THE REQUEST, THE PROGRAM W PE eS ne 


SER i 


S. THE PROGRAM WILL THEN ASK FOR THE FORMATTING MODE: 
"OPERATE IN 32 SECTOR (16 BIT) MODE (Y OR N)’ 
TER: *Y’ FOR 16 BIT nae Rete *N’ " 
He Rar, St, Mente Sil eae Be AP hae” 
6. THE PROGRAM WILL THEN ASK FOR A DRIVE: 
"DRIVE: s 


OR BR A lee A *PERIOD’ OR 
WILL SELECT pave O. IF THE DRIVE SELECTED 
ERROR MESSAGE AND 


Bi PRE Bid REQuEST. 


7. AFTER THE OPERATOR HAS SELECTED A DRIVE, THE PROGRAM WILL ASK 
FOR ADDRESS LIMITS FOR THE SELECTED DRIVE: 


"ENTER ADDRESS LIMITS: ’ 


THE PREVIOUSLY CTED OR pera! we ve a BEG TIONG 6 CVE TER 
AND TRACK Fi 


VERIFY DISK PACK FROM THE STARTING CYLINDER TO 
FROM CYLINDER O TO THE ENDING CYLINDER. 
Ps 


PROGRAM WILL FOR THE DATA PATTERN: 
(IN CASE OF Fi ) 


SERRE RO RSE SPREE See M RRO IS To SNe eos 


*SELECT DATA PATTERN 
(0) ZERO’S 
(1) ONE'S 
(2) WORST CASE:’ 


SRE SOREL EE PLUM’ EEE. 


WWWWWWW 
eet ata 
NOW CWO 


rE 
EHRNRIRNNES Ze 


Ga) 
iG) 
al 


RSS eae dal cal te ERE RRA tia 


FORMATTER 


ZRMA, RMO3 
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9. THE PROGRAM WILL THEN TYPE: 
*STARTING FORMAT ON DRIVE N’ 
OR 
"STARTING CHECK ON DRIVE N’ 


IF A NEW PACK IS UNDER FORMATTED THE PROGRAM ALSO ASKS 
To. ENTER HO SERIAL NUMBERS TH : THESE THO SERIAL, HUMBER 


10. OPERATOR CAN DETERMINE WHERE THE DRIVE IS DURING THE FORMAT 
TWEE OR CHECK OPERATION BY TYPING A "CONTROL 0°. THE PROGRAM WILL 


*PRESENT ADDRESS IS: CXXX TXX’ 


IFA’ TYPED WHI PROGRAM IS TYPING THE CURRENT 
AHORESS THe PROGRAM Mi Ur Aeory FORMAT (OR CHECK) OPERATION 


BAD RETURN T TO THE MORIVE? RE 
- NOT IVE WHEN FORMAT 
Ee ree Y PE MY RS coe 
LIMITS AT OF THE PREVIOUS OPERATION. 


IF AOIFPRENT OGIvE 16 SELECTED, POOGR MLL RESET THe 


12. TO CHANGE EITHER THE ADDRESSING MODE OR THE OPERATION MODE, THE 
PROGRAM MUST BE STARTED FROM LOCATION 200(8) OR 204(8) AGAIN. 


4.3 RH11 - RH70 UNIBUS ADDRESS + 
S THAT THE RH11 OR RH70 ADDRESSES START AT 


THE PROGRAM ASSUMES 
USO Het Tee YECIOL OPES 1, Pin (NER SGA. 


zs 


SE@ 0007 


z 
5 


Seececre 
me 
MWe oO 


SESRREDRA SLE LRRLOR SEO RRR EReSIaSAS : 


t 
es ae 
be pe 
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aL MT a OT Te Cera THE PROGRAM MUST 


pooRess Crane OUT Ne NIT TALLY AS THROUGH THE 
SS CHANGE ae yt Tiron THE RH11 RH70 
ADDRESS IN RESPONSE Ti THE PROGRAA. 


OTHER UNIBUS ADDRESSES 
Loc TAG CONTENTS FUNCTION 


az 
aa: 
BE 

aa 


He Be Hane Oa er 
1276 = =6SLKCSR =172S40 11-P CONTROL REGIS 

1300 © SLKCSB 1 11-P GI 

1302 = SLPVEC =104 KW11-P VECT 

1304 177546 KW11-L CONTROL REGISTER 
1306 100 ; SS OF KW1l-L VECTOR 


SWITCH REGISTER SETTINGS 


.--HALT ON ERROR 
(13>=1... BELL On TYPEOUTS 


Suc el DI Y, SYSTEM STATUS AFTER INITIAL START 
. ON THE SELECTED DRIVE 


ne ere, IS ral gs a To C8 re. 11734) 
erat ae he Pe he, al ng 
a Me 


He PROGRAM WILL 

I THE 
*SOFTWARE’ SWITCH ENTERED AS AN OCTAL NUNBER IN RESPONSE 
TO THE PROMPT PRON THE Sur TCH ENTRY ROUTINE: 







ROT REQUT ., 'RUBOUT’ AND 
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BE FOLLOWED. 


1S. 


Mi PRE SERED TER AN ATTENTION, 
Bu NO INTERRUPT WS FROM THE "RAT a nepeettesSoes: 
URE DETECTED BY THE RMIT WEN THE INDICATED REGISTER MAS READ. 
OCCURRED WEN THE INDICATED REGISTER MAS HRITTEN. 


"ADDRESS PLUG BIT SET’ —- THE PROGRAM FOUND THE ’OPE’ 
BIT SET FOR THE INDICATED DRIVE. 


*RH11 DIDN’T RESPOND TO ADDRESSING’ - THE PROGRAM ACCESSED THE 
RH11 AT THE INDICATED ADDRESS AND RECEIVED NO RESPONSE. 


"DRIVE OFFLINE’ - THE INDICATED DRIVE HAS GONE OFFLINE 
wet DRIVE UNSAFE ERROR’ - THE INDICATED DRIVE HAS BECOME 
tipo ROTI ION CANNOT BE CLEARED BY ISSUING ’DRIVE 


gt nf Sout ete TC RETA f ene” 


DRIVE AND A PARITY 


ene TIMEOUT’ - THE OPERATION FAILED TO COMPLETE WITHIN 
1 SECOND. 


*DRIVE UNSAFE ERROR’ - A NON-PERSISTENT UNSAFE ERROR OCCURRED 
DURING THE OPERATION. 


ERTL ERCORt ERROR DURING WRITE’ - THE INDICATED NON-DATA 
DURING A FORMAT OPERATION. 


Cea ROR Ee corre cimeK: WRITE CHECK’ - A NON-DATA ERROR 


"DATA ERROR DURING WRITE CHECK’ - A DATA RELA OCCURRED 
DURING A WRITE CHECK OPERATION. A DATA ERROR IS CONSIDERED 

TO BE ONE OF THE FOLLOWING ERRORS: "DCK’, ‘OPI’, *DTE’, "HCRC’, 
"HCE", OR FER’. 

*RETRIES 


TRIES NOT SUCESSFUL - SECTOR NOT ACCEPTABLE’ - THE INDICATED 
SECTOR FAILED DURING RETRY FOLLOWING A DATA ERROR. 
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16. ‘CONTROLLER/DRIVE ERROR VERIFYING HEADERS’ - AN ERROR OCCURRED DURING 
THE VERIFICATION PASS FORMATTING. 


SESR i 


490 17. THe ve IFYING A_HEADER ERROR OCCURRED DURI 
491 VERIFICATION Base ALTER FORMATTING. 7 
4a 18. ‘'CYLINDER FIELD IN HEADER IS NOT CORRECT’ - THE CYLINDER FIELD 
uae FROM A HEADER READ DURING THE VERIFICATION PASS IS NOT CORRECT. 
496 19. ‘WRITE CHECK ERROR’ - THE RH11 REPORTED A WRITE CHECK ERROR AND 
ne LG NO DRIVE ERRORS WERE SET. 
a 

1 
502 7 MISCELLANEOUS 
S03 eeawrwrer er e2oeoreoo-- 
504 
Bye 7.1 FORMAT TIME 
507 IT TAKES APPROXIMATELY 10 M pi TO FORMAT AN ENTIRE RMO3 PACK. 
208 THE 'CHECK’ MODE TIME FOR AN ENTIRE RMO3 PACK IS 24 MINUTES. 


7.2 HALTING THE PROGRAM 


ne i PROGRAM DURING A FORMAT tated ON. 
HALT PROGRAM ain SECTOR I ome ly FORMATTED 1 
oie aol PROGRAM IS 
TYPING THE ’ CONTROL THIS SEQUENCE RETURNS 


THE PROGRAM TO 2 ote Rien; CORrma,E 
7.3 SURFACE VERIFICATION 


Pee VERIFTEATION. © IF’ fHEPROGRER REPORTS bs Bi AS BEING OFROT 


THIS may INF FACT INDICATE A BAD ACE; HOREVER, 
SECTORS Seo TeH *PASSED’ OR MAY NOT BE GOOD 


UNUTUNUNI UU UN 
a 
ONCU CWO 


PROGRAM DESCRIPTION 


8.1 FORMAT OPERATION 


THE PROGRAM FORMATS THE PACK ONE TRACK AT A TIME BETWEEN THE LIMITS 
SPECIFIED BY THE OPERATOR. 


THE ENTE TRAcK EOLLOUED BVA LATE’ CHECK FERDER BAD DATA CORED. 


pA A ai alt 


oA 
THE PROGRAM WILL RETRY THE 
a Ee “CONTINING: fe A MATA "RELATED ERROR IS DETECTED 
S41 DURING THE WRITE. CHECK (A DATA ERROR IS DEFINED AS ONE OF 


MAI 


SRRLER MBSE TERE Se Bsa ol Sano e ene Hee ROM Se GRR LOR 


Pil 
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ve Eee SCTOR 


OR *FER'D, He secTOR IR ERAOR MILL Ata epee 
rue 


SEQ 0011 


ree Pee EE ao 


ProGeeh WILL RETRY THe COMARO FOR THE ENTIRE THWEK BEFORE PROCEEDING 


rae SE eR ee tas, “Eas | 
Ire Set he 


ay ce aa oe 


NO CATE BAD AREAS OF THE 
RE onto tay  eecTone CETTE T BE ASSUMED TO BE PR008. 


DURING THE FORMAT OPERATION, THE PROGRAH FILLS THE DATA FIELD 


CHECK OPERATION 
THE CHECK OPERATION 


BE Pl, ae Got Uli Pal renzo 


REPEATED THREE TIMES ye wate PATTERN BEING ROTA 
ORE ‘err POSITION AT EACH PASS 


POSITIONER VERIFICATION 


Fae tek ee Sreten 0 Te IRAE 


Sih Seika ERBY ICSELI Nhe, 


FROM THE HEADER 
THs CHECK 18 PE fae ae: That fe DISKS POSITIONER 
Y DURING THE FORMAT OPERATI 


BAD SPOT | FILE 


sectors ee 31,0N CYLINDER 822., TRACK 4 ARE ALWAYS FORMATTED 
PACK. ’ 


SECTORS 0,2,4,6,8 
DEFINED BAD'SECTOR ADDRESS FOR 16 BI 


= 
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SECTORS baSpBated. Oe TENT ioe a RECORD THE MANUFACTURE DEFINED 


Recomm The’ Gsen’ Get ine oo veneers ARE IDENTICAL AND. 


BR We aren AFF HODe. 
Ie RS AE SP Be 
i Sn cures canal Te § 

NS THE 5 MOST spiatts ite Tie Brcits. 
THE mesa WORD IS ALWAYS ZERO. 
reek ee ee IF IT IS 0. 
THE FOLLOWING 252 WORDS DEFINE THE BAD SECTOR ADDRESS; TWO 


ae ane Eee iota ieee ied 
IFT Ha (HIGH BYTE) AND secton it (LOW BATE) ADDRESSES. 


RECORDED | Ort NO BAD Shoes ALL GD SECTORS gecesi 


DETECTED BY THE PROGRAR aR Se 10,32, - 
11,13, SSEPEROED ON THE Ie BIT RODE OR BIT ModE 


ror aero Fog TED Serhan ae nen a ate ate uss oe SECTORS ARE 
IN IN 16 etr TS_MODE, ALL MANUEAC Beste AND 18 BIT vO. USER DEFINED 


IT IS RECOMME TO FORMAT THE pace N 18 BIT MODE FIRST 
THEN RESTART PROGRAM TO FORMAT PACK IN 16 BIT MODE 
IN » A UNFORMATTED PACK IS SELEC 1D.” 
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10.1 


10.2 


10.3 


RH70(11)/RMO3 DRIVER 


THIS DOCUMENT IS THE USER’S GUIDE FOR THE RH70/RMO3 DRIVER. 
TO INITIALIZE THE DRIVER: 


Io ony PC, RMINIT 
Tre Orives TT ether ie one eno STAY TABLETS 


EIGHT VE. THE STATE OF EACH DRIVE WILL 
BE IND NOTCATED AS Oe LLG 
DRVSTA DRIVE STATE 
0 ONLINE RMO3 
eck 
tve 
RMO3 
THE DRI IS DEF NAN 8 BYTE LONG TABLE TAGGED ’DRVTYP’. 
TE RAYE CONTAINS FOR EAEH DRIVE AND TS INDEXED BY THE 
DRIVE NUMBER. ENTRIES ARE ENCODED AS FOLLOWS: 
DRVTYP CONDITION 
0 NONEXISTENT DRIVE 
4 RMOS 
-1 NOT AN RMO3 


THE ’RMINIT’ ROUTINE WILL DO A READIN PRESET AND WILL SET FMTee. 


AFTER THE DRIVER HAS BEEN INITIALIZED, IT IS CALLED USING THE 
FOLLOWING SEQUENCE. 


CALL: 


JSR RO, RMO3 ;MAKE THE CALL 

PNTOPB sRooess DPB# 

RETURN ; { QUEUE IS FULL 

RETURNe ;RETURN IF REQUEST IS IN 
;QUEUE OR THERE IS AN 
;ERROR CONDITION 

*#DPB (DATA PARAMETER BLOCK) 
DRIVE NUMBER 


PNTOPB: .BYTE QO 
. tn ee OR FMT22, ECT, AND HCI 


“BYTE 0 PSEL AND Al7 AND Al 
“WORD O WORD COUNT (MUST BE NEG.) 


SE@ 0013 


z 

3 

o 
& 


NNNNNNNNS 
pao Bt bo OA ee bt be ee Be 
ONOUL£WM-O 


“ 


WARIAISS TSRTGSHSSULRROONO SSE VONTON ES 


SaSaNIIS : 
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.WORD 0 ; (6) BUFFER ADORESS OR 
oe 0 RAPHE ae 
.BYTE 0 (11) TRACK ADDRESS OR 
WORD 0 > (12) oe roe 
“WORD 0 314) Ernon ROLE. POINTER 
tocar! Hern THE DRIVER 
b 
iTERO Not Saved. 
.WORD 0 ; (16) INDICATOR 
; Bt TAst=}bone CURRED 
: T1481 AND BITO6-BIT03 
; INDICA ERROR 
10.4 THE DRIVER PROVIDES A SOFTWARE TIMEOUT CAPABILITY 


10.4.1 


TO UTILIZE THIS CAPABILITY YOU MUST gL 8 “RM TIMER” ROUTINE 
WITH THE ELAPSED TIME IN THE FOLLOWI 


MOV #16. ,-(SP) t AP ock ue BETWEEN 


JSR PC, RMTMR CALL THE TIMER ROUTINE 
ET Sie TT YOU ST PROVIDE TIE cores ORIVE THe 


TI Te eT 
T0.1 FoR ALL “ALL POSITIONING 
ul 7 SET THE TIMOUT TO 30 


JSR 3 CALL THE ORIVER 

WRTDPB ;DPB_ADDRESS 

BR % WAIT FOR QUEUE IF FULL 
es ed WRTDPB+16 ;WAIT FOR COMMAND TO COMPLETE 

BMI 1 ;ERROR OCCURRED 
WRTDPB: .BYTE ; ;DRIVE #5 

“BYIE 161 ;WRITE COMMAND 

-BYTE O ; 

-WORD -1000. ;WORD COUNT 

-WORD WRTBUF ;BUFFER ADORESS 

-BYTE 3 ; SECTOR 

-BYTE 5 : TRACK 

-WORD 400 ;CYLINDER 

-WORD ERRTBS sERROR TABLE 
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-WORD O ;STATUS/ERROR INDICATOR 


WRTOPG: «IDR BRITE Hala i ieee 


760 
re 
764 -WORD 1000. ABOVE TABLE DIO, BUT 
765 ‘are WRTBUF IN A CLEANER FORMAT 
77 ; ,ERRTBS, 0 
769 10.5  RH70/RNO3 REGISTERS 
771 MNEMONIC INDEX 
772 shemaintcontn ome 
ae RMCS1 0 
ve aa 
777 RMDA 6 
778 RMCS2 19 
779 RMDS 1 
780 RMER1 14 
781 RMAS 16 
782 RMLA 20 
783 RNDB 22 
784 RMMR 1 4 
785 RMDT 26 
786 RMSN 30 
787 RMOF 32 
788 RMOC 34 
i te i 
t RRERS u2 
792 RMEC1 44 
733 RMEC2 46 
2 10.6 | COMMANDS PERFORMED BY THE DRIVER 
ca COMMAND COMMAND TYPE 
799 
800 “ NO OPERATION 101 N 
eae UNLOAD 103 N 
804 SEEK 105 p 
80S 
RECAL IRATE 107 p 
DRIVE CLEAR 111 N 
810 RELEASE 113 N 
B12 T P 
Ble OFFSE 115 


Onwmwwwae 
poe ee pe 
—OOOnNOUe£ 


8 a’ 


SERRE Re COMO O OOO SRR TOR SOBA R AOR BO NONE 
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GET REGISTER(S) 
SET FORMAT 
SELECT DRIVE 
WRITE CHECK DATA 


TE 4 CK HEADER 1S3 


WRITE DATA 


21-JUL-77 16:06 PAGE 17 


117 
lel 
123 


— 
<= 
—_— 

co Oo wownwnwtse2ztz2z BV 


WRITE HEADER & DATA 163 


READ DATA 


= 
N 
— 

o oOo oOo ©& 


READ HEADER & DATA 173 


HOUSEKEEPING 
TIONI 


mo uz 
on 


SPECIAL PROVIDED BY THE DRIVER 


DPB STATUS/ERROR INDICATOR WORD 


THIS INDICATOR WILL INFORM THE USER OF THE RESULTS OF THE REQUEST 
THIS IS ACCOMPLISHED BY SETTING VARIES BITS OF THE INDICATOR TO 


BIT NO. MEANING IF ON A “1” 


13(1) MADE A REQUEST FOR A FUNCTION 
TO GE” PEREORPED OH 8 DRIVE THAT HAS AN 
UNLOAD REQUEST IN 
1e(2) PERSISTENT UNSAFE CONDITION EXIST. 
11(2) UNCORRECTABLE PARITY ERROR OCCURRED 


SEQ 0016 
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SENREGR SESE SRREOR Bae WeRE OR esa oA S & 


ee ee 


WONGU£W-O 


wWWooWOWWWOWwW 


10.8 


10(2)(4) 


9(3)(4) 
8(4) 

7 

6(2) . 
5(2) 


4(2) 
3(2) 


(3) => 


(4) => 
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Fare PARITY ERROR. a Lories'iee perth, Has 
ALL reese he STA 


SOFTWARE TIMEOUT OCCURRED ON THIS DRIVE 
SOFTWARE TIMEOUT OCCURRED ON ANOTHER DRIVE 
DONE 

ERROR OCCURRED DURING AN 1/0 OPERATION 


ERROR OCCURRED DURING AN OPERATION 
OTHER THAN 1/0. 


CORRECTABLE UNSAFE CONDITION OCCURRED 


DRIVE ERROR OCCURRED THAT CAUSED AN 
AUTOMATIC “RECALIBRATE™ SEQUENCE 


PORT REQUEST TIMEOUT. THE DRIVER REQUESTED 
THE DRIVE BUT OPPOSITE PORT DID NOT 
RELEASE THE DRIVE WITHIN 20 SECONDS. 


NON-EXISTENT DRIVE REQUESTED. USER MADE 
A REQUEST FOR A NON-EXISTENT DRIVE. 


RE WASN’T PUT IN QUEUE. (RH70/RMO3 
REGIS WERE NOT SAVED) 


Bed, Eiate foe Ove, 


oi GEFORE The “OR eC CLEAR 
net PG He on ex 


SAVED AS PER DPB+14 BEFORE THE INIT. 


ae fe ISLED 


ERROR CALLS MADE BY THE DRIVER. 
THERE ARE A FEW ERRORS THAT CAN OCCUR THAT CAN NOT BE INDICATED IN A DPB. 
WHEN THIS TYPE OF Fanon IS DETECTED OY Tie ORIMe te tain 


AND THE E 


FORM “ERROR _N® “N° IS THE ERROR 
WILL BE AN EMT’ INSTRUCTION. 


SE@ 0017 


MAINDEC-11-DZRNA, RMO3 FORMATTER MACY11 30(1046) 2@1-JUL-77 16:06 PAGE 19 SEQ 0018 
DZRMAB.P11 21-JUL-77 15:32 


1 RH70_ INTERRUPT #R4= RNCS1’S ADDRESS 
OCCURRED (RHAS=0) 


2 UNE NPE TED ATTENTION Ris Bra 8 ji. 


* THIS IS THE ACTUAL UNIBUS ADDRESS (176700) 
% 


RARRRRS PPL LPL L228 95.5 99 8 5.08 8 
z 
5 
8 
g 
z 
a 
a 


a ate RMO3_FORMATTER 
DZRMAB.P 


21-JUL-77 15:32 


MACY11 30(1046) 


HO2 
21-JUL-77 16:06 PAGE 20 


“ HOOPYRI aie) arr RNO3 FORMATTER 


; #OIGITAL OT 


i SPROGRAN BY C. ceca 


3% 
; ¥THIS 


ING THE PDP-11 MAINDEC SYSMAC 


PROGRAM WAS ASSEMBLED US 
j HPACKAGE (MAINDEC-11-DZ@AC-C3), JAN 19, 1977 
‘SeTTL BASIC DEFINITIONS 
;*#INITIAL ADDRESS OF THE STACK POINTER ### 1100 ### 





960 
fe 
ze 
968 
969 
$70 
271 001100 STACK= 
~EQU , ERROR :;BASIC DEFINITION OF ERROR CALL 
33 “EQUIV I0T, SCOPE BASIC DEFINITION OF SCOPE CALL 
Ie :¥MISCELLANEOUS DEFINITIONS 
276 900011 its i ; ;CODE FOR HORIZONTAL TAB 
278 000015 LF 15 ODE FOR OF er SEE Re TURN 
980 raed Sere rT + FORDCESSOR STA De FOR tates RETUR-LINE 
981 .EQUIV PS, PSI 
982 177774 STKLMT= 177774 $3 STACK LIntt REGISTER 
383 177778 PIRG= 177778 RR REQUEST REGISTER 
38 177570 ppTeP= Een Ht ‘e Urey REoiS ER 
387 jXGENERAL PURPOSE REGISTER DEFINITIONS 
$3 ue eters Reaiaten 
991 R3= x >3;GENERAL REGISTER 
mn i Glee Reeieien 
995 000007 $e. + REGISTER 
000006 SP= % + ORK bot 
$y 000007 PC= “47 + PROGRAM COUNTER 
9993 -¥PRIORITY LEVEL DEFINITIONS 
1 000000 Pro= oO j PRIOR TY 0 
1 000040 PRi= 40 ; ;PRIORITY l 
1 000100 PR2= 100 :?PRIORITY 2 
1 000140 PR3= «140 > PRIORITY LEVEL 3 
1004 000200 PR¥= 200 :PRIORITY LEVEL 4 
me Bie me HOntoatN NE 
1007 000340 PR7= 00 PRIORITY LEVEL 7 
1009 *°SUIT GISTER” SWITCH NITIONS 
1010 100000 ines! ao a 
utes 530000 Bf Sitges 30000 
1013 010000 SWi2= 10000 


02 
21-JUL-77 16:06 PAGE 21 


seve AND ILLEGAL INSTRUCTIONS 


RE 
;;TRACE TRAP 


ADDRESSES 
33 IME UT AND OTHER ERRORS 


Peer 


= oalanbanlanLanLenLantiten Len) 
a _ QoooaoooOmoOm 
one © @& & & oe e & 


Sait Seine sueouss 
B8leetons... SASSI -EoceeeSeeseqc,, neces 


uyzeeePPPPP> SIPALMALEK ULEEEnUDererrrar> Sida 
PEEP EEE EE Eee Beets Sasser Pree eeer ees 


4 Lev Tv vv Py) vy] ev Py] ee yy) 


NITIONS (BITOO TO BIT1S) 


4 


C “CPU” TRAP VECTOR 


bs 


1046) 
BASIC DEFINITIONS 


MACY11 30( 





RMO3_FORMATTER 





: 8 


_ 


21-JUL-77 15:32 
oo 





Baa 


a a dg dd a ht ed ed ws ad md 


MAINDEC-11-DZRMA 


OZRMAB.P11 


Saeteterie estes Melee eine a a ag Auten ence eRe 





-SBTTL TRAP CATCHER 


ONS EFRON re CONTAIN O08 LT 
sue Pesaiha tee ARS PRO VECTORS 


000000 DISPREG: “WORD 0 ;; SOFTWARE DISPLAY REGISTER 
000000 SWREG: .WORD 0 ;; SOFTWARE SWITCH REGISTER 


-SBTTL ACT11 HOOKS 


© REGGE RG RAR ARERR AERA REAR K ERA RRR EL EE 
{HOOKS RE TRED BY ACTII 


MAINDEC-11-DZRMA, RMO3 FORMATTER MACY11 30(1046) 21-JUL-77 16:06 PAGE 22 SEQ 0021 
OZRMAB.P11  21-JUL-77 15:32 BASIC DEFINITIONS 

BPTVEC= 14 ;BREAKPOINT TRAP (BPT) 

ie baave= es Heng TRAP (IOT) ##SCOPEx# 

t 000 s ipa A thee (EMT) ##ERRORS 

1074 000034 TRAPVEC=34 :" TRAP” 

ore eens ThvEK= er Hid TTY KEYED, VECTOR 

000240 PIRQVEC=240 INTERRUPT REQUEST VECTOR 

o78 76700 =176700 

073 AVECT1=254 

81 -SBTTL OPERATIONAL SWITCH SETTINGS 

083 ii SWITCH USE 

pe i 1S HALT ON ERROR 

086 +i 13 INHIBIT ERROR TYPEOUTS 

087 i 10 ON 

fg name 

086 * 2 ’'T DI SYSTEM STATUS AFTER INITIAL START 

030 +i 1 LOOP 

tae + 0 LOOP ON THE SELECTED DRIVE 

O94 

095 

i 

039 


;SAVE PC 
246 . 
000046 SENOAD :31)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
oooese d2000¢ “WORD 20000 :32)SET Loc.52 TO 20000 
‘ =$SVPC :: RESTORE PC 
000137 o06422 : JMP  BEGINI ;NORMAT STARTING ADDRESS 
000204 000137 Od64i2 TMP «BEGIN CHANGE THE RHI1 ADDRESS 


001100 -=1100 
-SBTTL APT PARAMETER BLOCK 


$ BRAGG RARER RAE RR AER RAR HES . 
ET tO LOCATIONS 24 AND 44 AS REQUIRED FOR APT . 
js Sunbeneneeeseseesnsussesseuecsesseees BERREEEALHPRERSHK ALEK HL SS EA KEE 

= ° SAVE 


33 CURRENT L ogee 
.=24 3;5ET POWER FAIL TO POINT TO START OF PROGRAM 
200 ;;FOR APT START UP 


ee ee ee ee Be be ee Be ae ee ae Be Bn Be he bn he be Be ee ae ee ae Be ee en Oe ee Be Pe be Be he Be an Be be be be ee ho 
bb be fe fe Pe ee fee Be Pe be bt a te me Re he 


ROR Bee NenLon-CSBNeR LoS 


B 
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DZRMAB.P11  21-JUL-77 15:32 » APT PARAMETER BLOCK 


-=44 — ;;POINT TO APT INDIRECT ADDRESS PNTR. 
STOR ister TO APT HEADER BLOCK 
;:RESET LOCATION COUNTER 


5 gt SHHHHHHHHHHHHHHE 
SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
$ 


.WORD 0 a 
iB em PASS ON 1 UNIT (QUICK VERIFY) 

188 Boo sy ethene tod selon mem 
001114 TAB.XY = : ;CHTAGST 

$3 HAHAHA A HEE EE EEE EE HE EE HE EEE EE EERE RES 

.SBTTL RH11 REGISTERS 

5 | JHEIHHHHHHHHHHIHHHI}IHIHIHHHEH HHH HHH HHH E 


;CONTROL AND STATUS REGISTER 1 (RNCS1) 


RR 
. 
8 


TWO HIGH BITS OF 18 BIT MAILBOX ADDR 
fi (BITS 0-15) 


a ee pe pe ee Pe 
Ce ee ee a ee ae 
nox 28s 
Mo 

= = a 

22° 

se se 


ENABLE (BIT #6) 
(BIT 87) 


RO iF 

fie, loop iMG) Gener Bis titres BIT <BiT 8} 
eer, Ba ERROR (BIT #13) 

| Tron (Bit 81S) 

tHORO BLT IS CALLED GY BT NUMBER) 

;BUS ADDRESS REGISTER (RMBA) 


;(EACH BIT IS CALLED BY BIT NUMBER) 
;CONTROL AND STATUS REGISTER 2 (RMCS2) 





BIaNclalVINLSISOVEN LOS SSSA LOIN SSSA SOS SRR POS RS UR 


ee ee ae ee ee Be ee Be be ae ee bn ee Be ne Be Be me ae ae Be ee Be Pe Be fe he be Pe ee Pe os 
Bae ee ee ee = Be eb eB et bh Pe = bs fe be he he b= = bo Pe ee Fe bh pe Re Ds pe ob Be } ae ea 


000001 USiz 1 ;UNIT SELECT (BIT #0) 
b0000¢ US2= 2 UNIT CT (BIT #1) 
po0o04 uS4= 4 sUNE CT (BIT #2) 
10 BAI= 10 : 1K INHIBIT (BIT #3) 
000020 PAaT= 20 : ITY TEST (BIT #4) 
000040 CLR= 40 : (BIT #5) 
1 IR= 100 sINPUT (BIT #6) 
= 200 3 (BIT 87) 
00 MPE= 400 ;MASS PARITY ERROR (BIT #8) 
601000 MXF = 1900 iM (BIT #9) 
PGE= : (BIT #10) 
004000 NEM= 4000 ;NON EXISTENT MEMORY (BIT #11) 
hae pps 46080 > UN I PAlt i 3) 
gl 040000 WCE= 40000 ;WRITE CHECK ERROR (BIT #14) 


MAINDEC-11-DZRMA, RMO3 FORMATTER MACY11 30(1046) 21-JUL-77 16:06 PAGE 24 SEQ 
DZRMAB.P11  21-JUL-77 15:32 RH11 REGISTERS 


1g6 100000 DLT= 100000 ;DATA LATE (BIT #15) 
184 ;DATA BUFFER REGISTER (RMDB) 
ibe ;(EACH BIT IS CALLED BY BIT NUMBER) 
1 
i 5 5 SE EE SEE SESE SESE SEE SE HE 
in -SBTTL RMO3 REGISTERS 
i 5 5p RRREREREREAEER EERE REELS REEL EEE ELSE EEE ERLE ELAR ERE EL ER ERE 
ig ;CONTROL AND STATUS 1 REGISTER. (#00) 
1% 000001 GO= 1 360 BIT (BIT 80) 
197 o0000e Fl= 2 FUNCTION BIT #1 
198 000004 Fe= 4 rune on IT #e 
199 000010 F3= 10 ; FUNC IT #3 
b00Ge20 F¥= 20 ; FUNC if #4 
FS= 40 T a 
DvA= 4000 ORVRILAGLE (BIT #11) 


;DRIVE STATUS REGISTER (RMDS1) con) 


GENeREGRSS 
ao 


Vs sVOLUME VALID (BIT 86 
BPRS £00 = the #8) 
1 552000 (ets p00 (BIT #10) 
aH 004000 RL = ir WRI TE Efex (GIT 811) 
aS Be: 1 I rae MHL NY mooess carr a2 
i 100000 ATA= 100000 s ATTENTION ACTIVE. fait #15) 
: sERROR REGISTER #01 (RMERI) (802) 
1 000001 fs 1 sTLLEGAL FUNCTION (BIT 80) 
ILR= 2 ; Hie G (BIT 81) 
eel 900004 R= 4 ines ir CATION REFUSED (BIT #23 
ee3 noooet FER= 20 3FORMAT 
WCF = 40 ;WRITE 
. ek 
227 000400 HCRC= 400 ; 
555 rie fhe: 2000 iT 
a 904000 WE: 4000 ibe 
2 nearer Opis = sooo 
040000 UNS= 40000 : DRIVE 
OcK= 100000 ‘DATA 





;MAINTAINABILITY REGISTER (RMMR1) (803) 


ee eee ee Be he ee ee ee ee ee Be he a ae Be bn ae Be Be fae fe fe Pen Be be ee me ee fee Bee en Pe ee Pe fe Pe Oe Pe Pe Pe Pe Pe 


Sa 
E 


M02 
21-JUL-77 16:06 PAGE 25 


SEQ 0024 


~ - 
—+ 
~ iad 

Sue = 
= - 
-_ a sé -m@ 
Sa = o~ 

Myo e S * 
vo LEA i 
= z*a wn Soro toe 
— “4 Be a -—-a@ 

Somat a | cll col ool el @ 
o — — onl oe nes tee oes) 2S 

ee ee 
1 peat eee Sasea | att 
RR RRR yi 


~preer . aaueees 





a-sa = 
= OE Od 8 Od Bd ee ee re 
Balen =a 


rata Stestects PEELE RRReR e 5 
GEEET EE — memo & EEEREE ENED S seeee BSS 
SEEEESS E SUSMUN ES «= SSBES bis 
SSSeEEE , GaEERGOS H. eeemmeeees’s Gumsueeeee EGE 


IS CALLED BY BIT NUMBER) 


;DRIVE TYPE REGISTER (RMOT) (#06) 


agoSeBeee 
sissies 


Z 


4000 


1 

e 
: 
100 
200 
I 


SIRED sec rOR Teak ADDRESS REGISTER (RMDA) (80S) 


;ATTENTION SUMMARY PSEUDO-REGISTER (RMAS) (804) 


;LOOK-AHEAD REGISTER (RMLA) (#07) 
;OFFSET REGISTER (RMOF) (#11) 


MACY11 30( 1046) 
RMO3 REGISTERS 

1 

2 

4 

8 

40 

200 
OFDIR= 


ATO= 
AT3= 
AT4= 
ATS= 
ATb= 
AT7= 
DE 
( 
HCI= 
ECI= 


RMO3_FORMATTER 





cactces: | Ee 


1 RESTUTEL TRL TR CREAR RRR ER RRR RAN NON N OR SERRE RRR ES RRRE 


ee a dd a eh Ge ed a dg nd a de gd ed ed gO ed ed) Od et 


21-JUL-77 15:32 


MAINDEC-11-DZRMA 
Pil 


MAINDEC-11-DZRMA, RMO3 FORMATTER 
OZRNAB.P11 2i-JUL-77 15:32 


Ibe 010000 


eneretseee eh 


Sones 





1 

1 

1 

1 

1 

1 

1 

‘ 

i 

1314 

131 

i 

i { 101 

i315 $901.08 

ai 
i 

{ EE 

1 00011 

{ B00 121 

1326 000123 

, ok 

rr 

0014. 

1 000145 

tes BOL eS 
noo 

1 sete 

eR 

eo: 


MACY11 30(1046) 21-JUL-77 16:06 PAGE 26 
RMO3 REGISTERS 


FMT16= 10000 ;FORMAT BIT (BIT sie 


;DESIRED CYLINDER ADDRESS (RMDC) (#12) 
; (EACH BIT IS CALLED BY BIT NUMBER) 


ETEALRY PCREE EA EA OG NORBEA, “* 


;RMOS MAINTENANCE REGISTER #02 (RMMR2) (#15) 
SKI= 40000 ;SEEK INCOMPLETE (BIT #14) 


;ECC POSITION REGISTER yt ae (#16) 
;(EACH BIT IS CALLED BY BIT NUMBER) 


iTEhcH BIT 1s CALLED BY BIT NuMBER) 


| JHHBHEHE HEHEHE Tiiitttiitttittiiittitittitit ite! 


-SBTTL RMO3 DRIVER COMMANDS 
5 EERIE AS 





RNOP 1 ;NO_OPERATION 
SEEK 1 ; 
RECAL eaelee 


3 OFF T 
TO CENTER LINE 
IN SET 
PACK ACKNOWLEDGE 
SET mecrstens 
Fi T (& ECI OR HCI) 
T DRIVE 


DATA 
HEADER & DATA 


SWRI TE DATA 
WRITE HEADER & DATA 
READ DATA 
;READ HEADER & DATA 


Pr Atte At Poctestnt eee Rene td 


asa re 


BS eh bt be pe he be es pe ee 


SEQ 0025 


(BIT<07>=0=YES) 


REGISTER 


NOICATOR 
ITCH REGISTER 


conta 
CONTA 
AUTOMAT 
SHINTERRUPT RODE 
DORESS OF 
FILLER CHARACTERS REQUIRED 
EME HE He He HE HE SE HE SE SE HE EE AE SS 0 a a a a a HE 2a EE 


CHARS. AFTER A “LINE FEED” 


TO BE USED 
NDICATOR 


SE BispLay 


MH ESE HE SE SE SE SE SE SE EE SE SE EE 


CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
;;START OF COMMON TAGS 


+t TEST NUMBER 
+t BESS COUNT 


oi 


MM 


% | : 
 RCSRRRE ROgSSERERESCRREEE 


eee e*eee o wtededeg « ee @e 
. 
. 


PROGRAM. 
(207) <377><377> 3; 
174 


{ 


cd COS EE teers 


IST ME 


y) 
8 
2 
F 
; 
= 
é 
= 
= 
g 


g 
Bb t 


&THIS TALE 


iS 


: 
GSBE RRR ESSEERSSS 


RMO3_FORMATTER 


att md md ot 


BORN MOR SS FT PRANTRESDBRRCRE 


ed cee hd eG ed eh Oe ed ee ed eh ad ag eg et eg a ed a et Ea ed ee et ee 


Seseseseseessseses 88888 
AAA AA UR PRR CS SSS CEL aa 


Gag ceed ed ee cen ed ed mh ag a a ed ed a a a de dd ty eg et ed et He et SH 


21-JUL-77 15:32 


Rae 


’ 


MAINDES-11-DZRiNA 
Pii 





SEQ 0027 





,» 11/40=04, 11/45=05 





DECISIONS 
OR ’CHECK’ MODE INDICATOR 


11720=03 


10 





»@ 


Bat 
pee Ger 
Ewiienn Poe BI 
IEF SAI 
TS 15-11 wt 


I 


CO3 


ah me tll 16:06 PAGE 28 


AUNIT 
Fenn 
ASWREG 
ACP UOP 





— oor 


aoe Geese 


i a a 


ar 





8 


Lo 


anne — RitRens a 









: eh eh hd et ot oe) eG Od ey Sd ed eed He) Od ed ed et ed oe ed dt tie Cet et tat i 
=| = = == OC 
== 8888888888 Be S8S8S88SSSSS8SSS8S S88SSSS8S 8888 






Ef NARIRSGDES EOD IE? 27222 Se HPI DOOD PTSSUOSMDESPEVEEPEN TTD 


Ds ed ce my ed ed ad Od ed Od a EH Hs ee da ed eg ad eG HE ed ed Te Kaen ete Kaen ieee ioeen Seten name eam oem heme heme 





MAINDEC-11-DZRMA, RMO3 F 


ORMATTER 
OZRMAB.P11 § 21-JUL-77 15:32 


gs 


a 
JANIS SPRL ER OCOD IMNOD 


SESESEES 
Jaa? 





RROBRERS SanadaeRaa aA SORES 


MACY11 30(1046) 21-JUL-77 16:06 PAGE 29 SEQ 0028 
APT MAILBOX-ETABLE 





Ber: tome" ETF ne TRACK 
Tse ‘Re 0 . ; Taek T FORMATTED 
Tamer : eR CML 
ae | 7 
CYLCK: ‘Hoe : : Fi R FORMAT VERIFICATION 
SAVSEC: ‘ 0 : 
SAVWC: “Word 0 : zine a ON ERROR 
WC: “WORD O ; 
PEDERR: “HoED 5 : ING FORMAT INDICATOR 
SEC30: .WORD O j 30 fe, oR INDICATOR 
sU = 
*1°S = 32 SECTOR MODE 
MAXSEC: .WORD 0 : SECTOR ADORESS (FOR EITHER 30 OR 32 SECTOR 
0s.CvL: - WORD ‘ : oF CURRENT CYLINDER 
RIVE: .WORD : 
athe WORD 6 ea ies tyice FoR FOR SORIVERS 
CNTLC: .WORD O : 
CHGADR: .WORD 0 :? RH 
WRAP:  .WORD O ; WRAP AROUND | puree HIGH TO LOW 
pee: oO :PACK>D, ipgil FROM PACK 
EDIT: .WORD O EDIT THe POT FICE. IF Ino 
HEADX: .WORD O ht in G00 SECTOR 
DEFINED BAD SECTOR 
at aoe? ee OFT NeD BAD SECTOR 
BAD16: -BLKH 256. *MFG 16 BIT BAD TABLE 
“WORD 1 
BAD18: “BLK 256. MFG 18 BIT BAD SPOT TABLE 
[WORD <1 
USTAB: :BLKW 256. USER BAD SPOT TABLE 
“ORD -1 
USSAV: “BLK 266. USER BAD SPOT TABLE SAVE FROM PACK 
“WORD -1 
SECCU: “BLK 3. 32 WORDS MAX TO STORE BAD SECTORS 
NEXT: :WORD 0 aL, TE NT a LM 00D sror on 


HE CURRENT TRACK ARE FORMATTED 
;RH11/RMO3 REGISTERS STORED Ae AFTER AN OPERATION 
RM.REG: .WORD 0 sRMCS1 


rE 
oT 
| mal aol 
bes ee 
fu 
= 
f 
a 
7 
— 
4 
HY] 


carat TER EYL epost), Et-SUL.-77 16:06 PAGE 30 , SEQ 0029 
- WORD 


Saws 
o 


bh pe fs ee ee De 
DGD IGPU £ 


8 


fae fee Pao Pt be Pee Bt fe Fen Pee Bee fe f= he ee 
UN UTUNUIUNUTU 
*eeee eee 7 ee 


SRE SRONRR ESS 


OoooooOOoOOOOOOO0O0000 
rEEEEEEEEREEE EEE 





OCK - USED FOR ALL DRIVE OPERATION 


;DRIVE_NUMBER 
3 VALUE OR FMT22,ECI, AND HCI 


; DATA/PARAMETER 
FMTDPB: .BYTE 


So EL EERE 
peceebidena 





;SPECIAL DPB TO WRITE HEADER OF BAD SPOT 


0 

p 

= ;ONLY TWO WORDS FOR HEADER 
RBUF ;BUFFER ADDRESS 


§ §8288saa8 


: : SECTOR 
gig a 
: SAVE ANYTHING 
‘ 0 STATUS WORD 
TER POINTER TABLE 
PARI 


ot Gees Geen eee Bat Has Pee B= fas P= fam hs bs bee Bb 2 0 be Bb te be be bf fe eb be be ho fe bm be fee 


ea RTA nak tee a pet sot ces Abas ake 





& 
is 





FO3 
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MACY11 30( 1046) 
APT MAILBOX-ETABLE 


RMO3 FORMATTER 
77 15:32 


2i-Ju- 


MAINDEC-11-DZRMA 
Pll 


2S DSESERESS CERSNRRMARERS CORE aRG ARE EESS 


Uk dd dd ad md ad ad ad a ad ad ed a ad ad ad ad ad ad aa ad ad ad dd ad ad ad a ad ad ad ad ad ad ad td 


;ASCII MESSAGES FOR ADDRESS PARAMETERS 


@START Cy. a 
-ASCIZ @START TRK @ 
-ASCIZ @END CYL @ 
-ASCIZ @END TRK @ 


-ASCIZ 


PARL: 


ie 


000040 


OS4S03 PAR3: 


TABLE 


;SECTOR BUFFER ADDRESS 


pa St ST AH tit ttt 





oe ee ew eee i ee ee ee 
ee 


So LOL LL LLL LLL DLL LL DLL 
ULTLNLNLNINLNININLNLND 


QODODD QOD ALN LADLE 





SSSGSSRGGSR ESSE ECSS ECCS ECCECCS ) git 


i 
S 





= 


Sd 
es 


Bes 


ed ot av 





O-VUMTMNON@w 
att tH It It 
wOovoouoownww 


SEQ 0031 


SIUM LN SORT TCR BERS 


Tuo oo 
S55 59 BO Bs BBs Bs Bo 


= seer eceeeeereeeeeeeeens 
Pe 
poeepe SESEseeleueuseveucegee 
eeovep Ee eeeee ees gee2 


Peer ee 
SeEEEEEDEEELDEEDEEDEEELE 








: 
E 
e 


ee cme eh med a ed a ee Hg oo 
O00 OO000000000 


21-JUL-77 15:32 


MAINDEC-11-DZRMA 
Pil 
1619 006062 ate 





peers 
dsdaea sussacsdesed 
SEN Ee re serrata sees 


Oh ee oe ef ed Om ed ed eg eg eg ed eg oS 


Si ‘Vireerrbrrporerterrers 


ase 
ase 
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1680 .SBTTL ERROR POINTER TABLE 

16S2 TS eee Con atns NS THE INFORMATION FOR EACH ERROR THA 

iS Bi aft ait fit Webs niet BARN ie a? os is PorveW. 
ieee + NOTE? ont ee Te Oe Sant AE Hoa TT POINTERS ELON ALLED AS FOLLOUS: 
1 3% EM ;;POINTS TO THE ERROR MESSAGE 

1973 3% DH 5 sPOINTS TO THE DATA HEADER 

1 3 OT 3;POI TO THE DATA 

tea i OF ;;POINTS TO THE DATA FORMAT 

1663 

1664 0061S2 SERRTB: 

ipeP ;ERROR 1 

ibe) ated ce oy ;RH11 INTERRUPT OCCURRED (RMAS=0) 

1 1 100 DTl 

tees Goeise 7iGh prt 

167 

ip ;ERROR 2 

167 seated fang A fs ;UNEXPECTED ATTENTION OCCURRED 

tere meats 116 DTe2 

1 170 path DF2 


35 


;MASSBUS PARITY ERROR (MCPE=1) 


icf 
cao 


p= 


;MASSBUS PARITY ERROR (PAR=1) 


F 
port +: 


; UNUSED 





;RH11 DIDN’T RESPOND TO ADDRESSING 


SISHSSSESRA PARE SE SERRES EES 
: 
~ PRs 


ae 
oo 


I03 
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ERROR POINTER TABLE 


MACY11 30( 1046) 


RMO3_FORMATTER 


21-JUL-77 15:32 


*AINDEC-11-DZRMA 
Pll 





x 
s 
~ 
§ 
z 
a 
: 
y 
é 


;UNCORRECTABLE MASSBUS PARITY ERROR 
;CONTROLLER/DRIVE ERROR DURING WRITE 


: 
: 5 &§ 
¥ % ¥ 
a i 
rs é j b 
: y 3 ¥ 
e099 s925 0 ee meee) = ze0Q) = meaa Sl wage 
mel an aE BSS% w SSS — SAS + SESS w 5S55 o BSS 


;ERROR 16 


a0) ~ 
4 =“ 


Ges Esse - a 
me fe 2 2 Be ee 


RRR REAR ERS RR RRR eee Ree eRe ER RE RE REE RRR EERE RRR 


RERRRRRRRRR RRR R RRR RRRRRRRRR RRR RRR RRA RRR RRR RRR ERERERERERRR 






AYE UAE Oe a 





1 
isea a 

1765 EM17 sRETRIES NOT SUCESSFUL - SECTOR NOT ACCEPTABLE 
1766 DH17 es 

i3e ae 

i768 ERROR 20 

177 ‘ 

i7re EM20 DATA ERROR DURING WRITE CHECK 

1774 DT20 

és a 

: ERROR 21 

te eNeL ;CONTROLLER/DRIVE ERROR VERIFYING HEADERS 
1781 0T10 

83 de 

1784 ERROR 22 

1 

176 EM22 HCE’ ERROR VERIFYING HEADERS 

1 DH1O 

1 OT10 

ie oi 

173) ERROR 23 

1 EM23 CYLINDER FIELD IN HEADER IS NOT U.RRECT 
{ Biss 

i DF23 

1798 ERROR 

1789 ‘ i 

i EM2e4 ;WRITE CHECK ERROR 

ae 

1 

160e a3 HELEEELESLESRAKEREREAE KSA SERRE KES ERE NR KEKE RRR NLL SER HARES REESE EEE 

1807 .SBTTL MAIN PROGRAM 

tt 5 5, Me AE A AE aE AE A A a A a EERE 

181 1 177777, OO1400 BEGIN: MOV #-1, CHGADR SET ’RH70 BUS ADDRESS’ INDICATOR 
1 ip Operas ie BR beatne tat THe PROGREM 

181 001400 BEGINI: CLR CHGADR “CLEAR THE *CHANGE RH70 ADDRESS’ INDICATOR 
i ie us a J8BBBHHHHHHHBHHEBHHHHHHHHHHBBHHHHHHHHHHHHBHHHHHHBHHHt 

161g Coa 1 000001 01212 "MOV #1, STESTN ::SET TEST NUMBER IN APT MAIL BOX 

1817 0064 BEGIN2: RESET ;CLEAR THE BUS 


MAINDEC-11-DZRMA, RMO3 FORMATTER MACY11 30(1046) 21-JUL-77 16:06 PAGE % SEQ 0035 
OZRMAB.P11 © 21-JUL-77 15:32 INITIALIZE THE COMMON TAGS 












181 .SBTTL INITIALIZE THE COMMON T 

181 ;;CLEAR THE COMMON TAGS ocr AG) BREA : 

is i tia Remon LocaTion 

1 BNE BACK 

1 MOV Lapin Hole POINTER 

1 ; ; INITIALIZE 

1 MOV C; i srr FOR ERROR ROUTINE 

1 MOV HA 

18¢ MOV HA VECTOR FOR TRAP CALLS 

1 MOV ; 7 

; HOV 33 FAILURE VECTOR 

rl CLR 33 ADDRESS 

{ IZE FOR B i 

1 BETA TO A oe sie,at 1 

1 MOV $3 

183 MOV 33 

183g MOV per SWICH aerek 

1835 MOV BND 

Ht ' 1 ge 3 IRY NO 

ips Hee ii 1s whee = -] 

1 BR BRANCH IF NO 

i 64S: Hoy >:SET UP be TRAE RETU RETURN 

1 001154 65S: MOV #SWREG, SHR ;;POINT TO SOFTWARE SWR 

1 001156 MOV #DISPREG, DISPLAY 

i 66S: MOV (SP)+,a8ERRVEC ;;RESTORE ERROR VECTOR 

1 CLR ; 

1851 001227 BITB 8sAPTSIZE, SENVM Tee uceR size UNDER APT 

1g BEQ 67S siNES Ue NONCAET SHI 

iE 001154 ha MOV #SSWREG, SWR * NO SWITCH REGISTER 

1€ "RESET ; 

rt MOV SPRS,98TRAPVEC+2 ; PRIORITY BACK TOS 
MOV PRS, JHEMTVEC+2 ; CHANGE PRIORITY Back TO 5 

185¢ 001376 MOV  —«- SBEGIN1, CNTLC ie erat 

166] are 1S TLE 

ieee | itd ny aa sive 

i SIT ame Eo SOFTWARE ois GIS 

{ ; eer wo ©” wheat Re eae ING UNDER XXDP/ACT? 

1 BNE 68S 1 BRANCH F 

1 000001 SENV, #1 iene NG UNDER APT? 

1 BEQ 605 33 I 

1 000176 CMP SWR, #SWREG -3 SWITCH REG SELECTED? 

1 BNE 695 *:BRANCH IF NO 

i GTSHR oa *:GET SOFT-SWR SETTINGS 

1873 006742 112737 OO0001 001150 68S:  MOVB #1,SAUTOB ;;SET AUTO-MODE INDICATOR 


LUs 
DOO PLL ontsu er? Serae HOEY EL, ie POR Gor Funke SuITCH REGISTER =o 


;DISPLAY DRIVE STATUS AND SET UP THE OTHER UNITS THE 
PROGRAM WILL USE 


ieee ee gs She SCHECK FOR FIRST START 

i ne 

lee te Ee IRN GEN Ret BO 
: 2 

iB . a fees 
: ny Swarr LL70 GOntess 





—_— 13h Pe‘ RNY ye sae DRIVER. 
i oO ieee re 
1 BIT eSH02, ISHR OUT THE DRIVE STATUS TABLE ? 
| soot A ole a SP ive 
* TYPE tar STATUS HEADING 
i . MOV RY, -(SP) $3 Pu TYPEOUT 
1 j TYPOS + TYPES OCTAL oaSC II 
i ar Spb Ec zeros 
iat TSB yeTACRY) iSPRCES ve 'S STATUS 
1 13 i BMI 45 :BR if UNSAFE 
iat Pit a BRVTYP(RY) ie IF OFFLINE OR NONEXISTENT 
1 ip BEQ es ;BR If NONEXISTENT 
is BYE NOTRM i BRIVE Sore AN RMO3 
as: ee Stores inte Fa oe 
ry o 
| ae aan 
1 4g: TYPE ,NOTSAF at UNOAEE pe - 
i SS: PYPE UNTON ;DRIVE ONLINE 
| BISB  ATABIT(RY),DEVMP ;SET DEVICE MAP 
1 6S: TYPE LINSP ; SPACES 
i MOV bRMO3B, 8S ‘ADDRESS OF RPOY MESSAGE 


MAINDEC-11-DZRMA, RMOS FORMATTER MACY11 30(1046) 21-JUL-77 16:06 PAGE 38 SEQ 0037 
OZRMAB.Pil = 8=©21-JUL-77 15:32 GET VALUE FOR SOFTWARE SWITCH REGISTER 


000001 024076 


ere BeG6re 
eet 


032431 007270 


= 
5 
8 
2 
3 


PURE 
H 
i 


é 
RCE NENT DRIVE NUMBER/TABLE POINTER 
Fi, #8. °F NISHED 

H 


4 FIND THE DRIVE ® FROM DEVICE MAP 


RO ;NEXT DRIVE 
6$ ;BRANCH IF ALL DRIVES ARE DONE 





001203 10S 
CODING FOR APT---LOAD FROM E-TABLE 
001150 ApT ITB RUN APT ? 
FF oo140 4 t on 
1057. 1264 rst Aa Pa ae p yi pee MAIL BOX 
001404 MOV iLOR IT FORM MAIL BOX 
1404 BIC #1 ,DEVMP i; MAX 8 DRIVES 
05737 O01404 1S TST > CHECK a, ies Pi ndinaes 
. at MSFX ie TRK ; ; 0_TRK 
ies cir YL adie Utes Pe 0 CYLINDER 
593 ae OY OtC«ET A 
CLR 4 EN : TEASE AROUND FLAG 
iy 001316 MOV $1 MODE : T VERIFY MODE 
1266 TST 1 : =0 
lg BEQ +6 iYES T 19-4 
3 GA Rote iS SEY 1 tag Rove 
001362 #-1,SEC30 :SEt Cc 
1270 TST scOhe :APT , =0 
tena) oo se MOV s<258.a92.>,ue Coit F WORDS 
001 Rov 31° RANGES r SMAX 32 igOR UN 
001 1S: MOV rY, +20.) WC _;COUNT OF WORDS 
001 MOV $-(258. #30. 5, MWC *WORD COUNT 
1 CLR SEC 330 SECTOR 
’ 001364 MOV 829. , MAXSEC *MAX 30 SECTOR 
131 2s: ST 00 ? CHECK ? 
1 001340 MOV #133331,PATA sINIT ATE PATTERN 
DC 14e HOV . PATB INITIATE PATTERN 
001 ’ $ { 
I MOV #1;RO *UUT STARTS AT DRIVE 0 : 
001404 3$ en , DEVMP ptt VICE MAP SET ? 
CLC 
ROL 
BLE 


MAINDEC-11-DZRMA, RMOS FORMATTER MACY11 30(1046) 21-JUL-77 16:06 PAGE 39 
OZRMAB.P11 —_21-JUL-77 15:32 GET VALUE FOR SOFTWARE SWITCH REGISTER 


; INCREMENT DRIVE 8 


a 4 im iePRa he BEY FROM DEVICE MAP 


iT i pent Deviee: count To CHANGE MAIL BOX 
be: é = iSG"Te BaP BE tRtes on soevn 


;SEE WHICH MODE THE PROGRAM IS TO BE RUN IN. 
;MODES ARE: "FORMAT & VERIFY’ OR ‘CHECK FORMAT’ 


ee fire Pe ouran Hoe’ 
ROLIN ° : KEYBOARD 
(SP)+,.R1 °GET .OF INPUT 
TST (Ri) : eae NIE COPPRULT) 
gr o cm inf PM ves 
cHPB 8’F, (RL) j FORMAT: ? 
OEE Sous Mey T ENTRY 
1S: PRE MHECK Tipe eee? 0 OF *CHECK’ 
BR Aa 'GET STARTI GOORESS 
2s: TYPE aff ORNT i Tite 
3S: TYPE T ‘TYPE REST OF 'FORMAT’ 
001316 4S: MOV b-1, MODE *SET MODE TO ’FORMAT & VERIFY’ 


;FIND OUT IF FORMAT IS TO BE IN 30 OR 32 SECTOR MODE 


+ 

- 

< 

+ 

— 

~ 

rue 

++ 

yin 

++ 

— 

++ 

at ie 

+ 

_— 

+ 

~ ; 

++? 
r. 





MIA: TYPE. SIZE : eS CL FORMAT NODE REQUEST 
HOV (SP)4, RI 
chr a’Y, (RL) ; ie Bs ke ? 
: ee Bea 
: ae a 
oorzsy (howe WE 32.» se i eeoul wate ror MODE 
Bb 3b MOY ech SECT MALE: iorcaToRS 
Bi 3e4 roy ASI, ore CYOR nso 32 SECTOR MODE 
oossy “howe ete, > We Tee IN D SECTOR se" 
001356 MOV . 430.5, MWC’ 


0 


i ets eras 
0 


001364 





012737 016324 001376 


os 





ol 
" 
" 
1 
1 


D2 b2 ae fae fe fe fe Pan pe Pe 


CRONGRESSERS PRT R 
SHOT 


a 


Ooooo00000o 
Gent Dene fas fen bat ps pee Pet ee ee ee 


——— ee 


RSawas 
a 
: 










1 

i 

1 1 

16518 rite, 016104 

1021 737 

1 1 177777 O2e41S4 
1 177777 024156 
1 177776 

1024 024066 

10246 1 

10250 1403 

1025¢ 032661 

i 60 1 024076 

10264 001003 

hiked q 

is 1 Nl 032605 

iGate ies Ki 001220 005610 
1 13 1 005610 
Bigses | Atzra7 af 
010326 eee Coo003 af 


BO4 
PF Ute POR dorflane skitch AeeistER 


CLR SEC30 330 SECTOR INDICATOR 
mis: CCR sce RB N BBapeg OR MODE 
3 CLR GCYL ; NNING CYLINDER ADDRESS 

MOV 4. ENOTRK : END TRACK ADORESS 

five acl. REIS TilaltD oaive MreeR 

BR 0 BRANCH TO START 
GO FIND OUT WHAT DRIVE 
MO: MOV SOENTER, CNTLC CONTROL C ABORT ENTRANCE 

GER C STKINT fy ize The TTY CRU ATOR 

AOL EN 4 READ THe ae 

St Be rh 

i vs Brad cer 

es ;CARRIAGE RETURN 

Fate 

: pla a 
es: Re eoevn i SELECT ORIVE, ZERO. ove NUMBER 

BR ds 360 SEE IF DRIVE ZERO IS THERE 
3S: TYPE SQUES 

BR ASK FOR DRIVE NUMBER AGAIN 
4S: MOV R2, DRIVE DR ve 

is eee 

BNE I 

ee at UE Pere one 
cs: 6  Pe.st.cux nah Pal Het 

JSR PC’ RMINIT OnvEs ARE AVAILABLE 

NOY o-| SAVERS ete a 1 

CLR ps’ ag ARK on" he 

TSTB © DRVSTACR2) DRIVE STATUS 

8S ior aa ONL INE 
a ie is hee IVE NOT AVAILABLE 


a 
Sr er 


: ho 
Qs: yee ee ? 
BITB OIA onviveiten hfe ame DRIVE RMO3 





CO4 


TR SorFiake sutton AeeIsTER 


peevd 


TTER 
15:32 


elt eicsu-97 


lh Stles 


CYL 
LIMITS FROM THE OPERATOR 


~ Be 


G 
Gc 
Me 


;GET LIMITS 


peso% 


1466 001320 


1 
1 


ji 


F 


‘eat 


by 

8 

: 
ae a7 
rL 
fs y 
=e b 


Snes cate ade 


.33C 


177777 001402 4S: 


§ 8 
8 
& 
8 
Buebeeccennae 


=“ 
rire 
4 ad ey 
3588 
5 - 
Con em Jenn ham bam pam bam bam pip ban bam ban bam) 


;GO GET DATA PATTERN FOR FORMAT 


PATTERN -SHIFT 3 BITS 


aNonesT CASE DATA 


oie 


T AND CHECK 


T PATTERN’ 


er MODE ? 
SINITIR 
sofa To 
fs 
A 


PATA 
PATB 


9 
g 
1 


gi secet 
MSELP 
SP)+, 
RS, 


# 
( 


mA. 
#133331 


rubtatseinennne 


_ 
ao 


001316 
0333Se 


yuws 
Esesedgs 


Se eet 


LEE 


-~ | 
—" ad oe) ad a io ot 
= e0000 a= 
BYE BOTAN 


;GO TYPE "STARTING FORMAT ON DRIVE N’ 


5 
Te 
5 Se 


,@ETKVEC ; 


@NEWSVC 


a8PSW 
\HSFOU 
es 





SBE Be BR SSSI RANCH G IA BRR RRS s SST PPS PS RAR 


NE md mt ed a dG de hd dd hb hd hd ed dd dd a tt it 
fucucucucucuCcucU Cua CuguCU CUcuCUCUCU CUCU CU CUCuCUuCUCuCuCuCUcuCuCuCUuCUuCuCuCucu Cu cucufeCucucucuCucuMu fy 


DO4 


MACY11 30(1046) 21-JUL-77 16:06 PAGE 42 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


SEQ 0041 


RMO3_FORMATTER 


21-JUL-77 15:32 


MAINDEC-11-DZRMA 
Pil 


: 

baal 

sis 

r Bate 
; 

a: 8 

ts Feat 


10570 104401 
10874 013746 001220 


10574 


0 
a 
0 
ot 
1 
1 


COUNT FULL TRACK INCLUDING HEAD 


INFORMATION OK ? 


Pe tae HEAD_AND DATA COMMAND 
SS wesc ce 


2 - ¥ 2 
-- w 5 i 
a. fel patie | ae 


Tine FROM THEPACK (IF FORMATTED PACK) 


ene 


tEMT BET MUST BE SET 


cae 


ty ERROR » 
cat 


ze ihe Aertel £ 
! i a is te bee et ces 


span SbelaSier nabenne wecellllinseasme: 


F 


a 
couoseowees Ais 2 2 


peeReee = Sepeapnsssss 
BSS SSS SESS Se 





| om een ieee ham ham Kam ams heen been ae ham Kam bam oem ham lam Iam are been Teee, hem fae Ram ham, eam here, Re oe ee ee ee ee ee, 


CRADRGS 22IS SSS SERC EERE EE See Ge REL RE RENT RIT RES oe 


cucucucucu cucuCuCU CUCU CuCuCuCuCuCUCcuCuCuCuCuCucucuCcuCcuCuCuCuCucuCuCuCcuCuCuCucUCuCuCuCuCuTy 


EO4 


FOR SorFlnke suiTcH RECISTER 


SEQ 0042 


mend 


: 
bites. fy 
Eeceat, al 
emus Sioa 


rr 
» O8BUFP+2 


SeBUFP+12 


: 

S) wu ge 8 
os stake Bee 
SRUbEMDPERIED 


Garee4 
037556 
000400 001406 


iS 
Neieiies 


ee eh hh ad ed rd Oh ed ae ed od 
OOOO 000000000000 


tenene 
037560 
037562 
037564 
taste 


Ss SOU ORRIN RRR 


REST LOCATIONS 


ApDRESS 
ILE ADDRESS 


one Se 
ti 
; SPO 
sFIRST 4 WORDS SET TO O TEMPERARY 


ST OOPING BACK IF NOT TERMINATOR 


Haar ge rot 


;USSAV T 
;MFG 1 
;MFG 1 
USER 


2 
5 ois SH aed 
. oe Leznoe 


SdSSES SORENESS 


TABINT: 


ee oe ee 
au % 
= 


1. Ls 


parte ph ph ph-ehph phoh ph ph nb eh ph ph ph si | 
Rd a OE Oe ad ee eH 


001100 


; THIS CODE LOADS TABLE BAD16,BAD18,USSAV,FROM PACK (IF FORMATTED PACK) 


FIRST 


;BAD SPOT rie AVAILABLE FROM PACK ? 
ABLE 


$PORD Bab ie 


ef 

“oo a 
suee 28 
oe ais, 


Pub eesusoeoou 
foes 


1s 


1 
— 


Retsunemes 


Besaescaascas 
Qo00OO00000o0O 


CCRC 


SE@ 0043 


FOY 
21-JUL-77 16:06 PAGE 44 


GET VALUE FOR SOFTWARE SWITCH REGISTER 


MACY11 30(1046) 


RMO3_FORMATTER 


21-JUL-77 15:32 


Pil 


MAINDEC-11-DZRMA 


[Format 
> 
L 


(10. #516. 


(11.8516 


eer 

Pann 

SUSSAV, R3 
>. RY 

(Re)+; (R3 

RY 

48 


SePeeesouss 





: ; DONE 
THIS CODE ASK 0.P TO ENTER A SERIAL NUMBER FOR UN FORMATTED PACK 


OWED 
NUMBER 
NUMBER 
NG 
NG 
THE LSW 
OCTAL DIGIT 
T ONE OCTAL DIGIT 


5 

N 
L 

I 
oI 

OF 

ONE 

IT 

IGITS INTO MSW 


;LOAD THE CURRENT READ IN DIGITS 


ON 

THE 

AGA 

ING 

THE 
;CLEAR_THE SIGN BIT 


Sv pul owe S52" 
ee eee fe 


; Et] 
a 222 wae 
Oe ttt tt ae Pare 


Bega Sai Pe ha pend oBaSSEE egg uaDg TERE 
nghynt tase PoP oP ares s sete de degssdagee 


‘ 

bo 

fi) a’7 
§ 





zz - wo > 
-_ -_ -_ _ 
2 zz af > 
_ _ -_ ~ 
8 8 8 8 
ee Re rTTT o 0 FITTT 
aa “tot et 4 tt 
z3 Eu 5 seezee ssshe 2 2 frees 
8 8 88 RS 8 sssssc 
paneeee re cu aii . =} 


a5 == BSB FYE IMIS PS aSaDREASSSEES 


YG hd GG a a a th et ed eh eg I SH 
papata potato tata ta tata ta pata pata tatoo ta tatatatatata tatoo tata tata aaa 











SEQ 0044 


3 ; i wy 

ai. : ee baad - 
ar pte peat Odes. Bees § 
beget R e 8 bcfiats coe oR Bale § 
a a - ae ee Eoteseee 5 ote 
ge i | Be 

eae og i, levied bewant, 


ue pee ay e ge 
Fb ae Bi ce eacet ts 


85 

EE ——n bubae DoSme BmUESELE eS TESS 
% 
a 


sesgeeul 


iF 
EDI 
;THIS CODE SETS UP THE SELECTED DATA PATTERN TO BE WRITTEN ON EACH SECTOR IMAGE 


ac abe ae Soe ee 3 


8 S : ia = ¢ 8 3 
§ 88 S88 8 & 
— 
— i tt =4 a 
8 88 888 8 6s 
§ 888 2 388 SY B4e8 8 SSS 
a) = 
zr zz 
8 888 § 888 88 Sses 88 8 












0 ee 


Bhides |B 


E 
a 


A 
. 


oe 


pot at 4 ott ththtineha tne +hnt +hnt 
WO NOUN £ WTO b= 6.0 NIC nt 
CO0000000 


tee fae fa pe ee bw be ee 


Rees 


eh 


MACY11 30(1046) 21-JUL-77 16:06 PAGE 46 
T VALUE FOR SOFTWARE SWITCH REGISTER 
SETPAT: TST MODE VERIFY MODE ? 
BEQ 18 : 
4s: PATA : pata PA 
PATB : TA PAT B 
T PATSEL : IF PATTERN OF ONES 
mov «87777 Pah =n 
#1 »PATA ;PATA = AB 
MOV $177777,PATB =: PA 
CH #1, PATSEL *SEE I POTTERN OF ZEROS 
apy nOose66 PATA HORST CASE 
ae: es la 
MOV RO SET UP MEMORY POINTER 
3S: MOV PATA, RL ier UP PA IN Ri 
2s: OY che taOv IST PAT INTO MEM 
HOY REY (RODS Rov oho pat INTO AEN 
DEC R3 KEEP COUNT 
DEC R3 KEEP COUNT 
BNE 2s *DO IT AGAIN IF R3 NOT O 
THIS CODE SETS UP FOR THE ACTUAL FORMAT 


180 Fal rhea toe HEADERS IN THE SECTOR BUFFER IN CORE 
T 


Ae 1 E FMT22 BIT 
sy, AB EERE rernmce! a Foo Ebro 
2s: JSR RO, RMO3 ;st 
i ne 
3S: Re Fe rDPati6 *LOOK Fi 
BEQ 38 LOOP UNTIL FINISHED 
SET UP SECCU TABLE: BAD SPOT ON CURRENT TRACK ,RETRIEVED FROM PACK 
WRTRKX: MOV CCU, R3 -INITILIZE THE SECCU TABLE 
MOV Ho R4 TOTAL y WORD 
MOV §-1.R2 "LOAD ALL LOCATION TO -1 
1S HOY Re, (R3)+ : 
BNE 1s BRANCH IF NOT DONE 
LOAD THE BAD SPOT INTO SECCU TABLE IF ANY 
WRIRKY: TST PACK ; T FILE AVAILABLE AT ALL 
BLE ss $ F 
ry Seen TOOT oe"ctane olen 
BMI 1 : BRANCH ir 16 1f ROSE 
MOV 439018, R2 ; 
1S: MOV R2,R1 “Rl: LAST ADDRESS OF BAD SPOT TABLE 
ADD #510. ,R1 ; 


T04 


MACY11 30(1046) 21-JUL-77_ 16:06 PAGE 47 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


SEQ 0046 


RMO3_FORMATTER 
JUL-77 15:32 


21- 


MAINDEC-11-DZRMA 


OZRNAB. P11 


SPOT STARTS FROM THE STH WORD OF THE FILE 


; TABLE ADDRESS 
;LAST ADORESS OF THE TABLE 


SSECCU, RS 
Fhe 


BBSSRYEYSSORIE SER DES 


s o — 
4 aPya i 
—~ , 


- =, 00 





ait ae 


;EXIT IF TOP = BOTTOM 


2 
- « a5 ~ any aE 
ss S + “~— o el 
a5) Mg he 28 
oe @ Bee mo 8st een Ss aw Bok 
Suvsome lee oe BBSiaken She ledg~felizeuoezstyt 


MOV 


Sebidaid SPeabeSsebacsusskeesens 


Frrope 
i) 
Re 
Tas cove sors Me TEC TOR, TABLE “SECCU” IN ASCENGING ORDER 


ss 
dort 


% os) ? 


: 
: 


§ £ 8 $ 8 











RRS z PRS PPURS SOLE BASS R=, 
OT tuo .B Orb “wy 
SSAA ERR RRPRRREER ERA PH HHH Hutu trtat 
QoO0OO0000 














tt RRO UNO RR RRR 
y Bs Be te Bee Pe } y 
1 J 


NOU LW 





pve. 


eae es 


ORMATTER 


15:32 





001364 


001406 


JO4 
SFU IGP osha rc TB * 0 ove 
BEQ 6§ 


ls THE REST ELEMENTS 


i 
6S: Re 

CLR NEXT Peo 
WRTRKL: CLR SOF SH 

+ fee ewe 
;DELET THE ruil te i ny IFY OPERATION ; 
fae Toe cK’ HOOE. 
Lae ie ee ee bee 
sEND OF OPERATION ? 





URTRKA: CMP 0-1,NEXT ; 
HALT : I ING WRONG ste 
1S: MOVE NEXT. FMTDPB+10 ;ST: 5 he 
MOV eSectu,R *Ri BAD SECTOR TABLE 
2s: CMP #-1, (RI) TB 
Bit rf I Pe ce : SECTO S 0s ALREADY ACCESSED ? 
ADO : He"8 INTER 
3S: CMPBSéF 10,(R1) ; T = STARTING SECTOR ? 
dalla: : F IT 
Bro ; e Sr : C < BAD SPOT 
HALT : I ING 
4S: MOVB (R1),Re ; NG ADDRESS 
CMP MAXSEC, : is LAST SECTOR? 
BLOS WRTRKD H F rT i 
HOV NEXT NeXT TING A 
BIS TIS, (R1)+ j RAR ESSED SECTOR 
WRTRKB: INCB if | BRTING CTOR 
I 88 (R1)+ ; { 
cH FHIDe® 10, (Ri) ;STILL OTHER ™? 
CPOE are et Ret SE 
ISR bg RESTRT ; IN ILD FMG FILE 
MOV 8-1 : MFG FI LABLE FLAG 
is: oF reat ror BAD SPOT IN TABLE 
; BEQ Matha t BRAREH ls 
or MAXSEC, ‘bab Sct ast . THE LAST SECTOR ? 
BLOS § WRTRKD ; 
Mier RS NEXT : 
BIS s6tTiS, (RL) MARK rat Us SECTOR 
WRTRKC: MOV NEXT, Re * CALCULA WORD COUNT 
SUB #2, Re *ENDSECTOR = Ly 2 


Paes: an vara 
SOFTWARE SWITCH R erste 


Sd: Fa te ar cme 0 TO ENDING SECTOR 


z 


MAINDEC-11-DZRMA, RMO3 F 
OZRNAB.P11 8 8=2l-JUL-77 1 


3 
" 
- 
: 


TTER 
:32 
















1 (R2),R3 ;WORD T 0 STARTING SECTOR 
ait IR go HD CO LN ETE 

1 R3 ;GET THE I e COUNT 

re ee 

146 1364 MAXSEC, Re LAST 

14g 1 RETBL (RE) ,R3 : HEX THE ENDING SECTOR 

1s2 11 FMTOPB+10,R2 § ;STARTING: ADDRESS 

17, reed (R2),R3 3 OR THE STARTING SECTOR 

if 270. . RO E SEC! 

1 R3, FATDPB+4 *LOAD COUNT INTO DPB 


5 
: 


SEP ee 0S" Se P ARR PLEO 


+44 
at 


FMTOPB+10, R2 ;START ADDRES! 
ABRTBL (RE) marist fl 






QOSb1e WRTRK2 ” hyae, y ts ¢ 8 DATA COMMAND IN TBL 
1S: 8, RRO : 
2s: tATDPB+16 

2% 
001174 as SESCAPE 

FC ERINOX 
12 
13 

: 13 

x30¢ 3S: pe, OP. CK 

001346 #3, RETRY 

& 4§: SEscapE 
RETRY 


;CHECK THE TRACK JUST WRITTEN 
00S612 CKTRK: MOVB FMTOPB+2 
Ooi ie4 ss SPER 


1S: J 





SE@ 0049 


ONE THAT FAILED 


O COMPLETE 
TOR ADDRESS 
ee 
TOR +1 





ve Sire 
POs 
canon 
po 
va 
PRIN ere CHECK 
: Tn’ FoR ENOING SECTOR 


fi . (eo BR #3 
: a eee ret) 


‘pes 


G+RMCS2 
1 
g 
S,HEADX : 

LREG#RMDS 
 FMTOPB+ 
5) 

g 

$ 

B 

f 

a 

so Ri :§ 


FOR STARTING SECTOR 


a 


a ae SERER ESR WE Reuse esagsegasaee 


: N 
tr ROT 
SEE IF LAST RETRY 


42 SOFSH 


zkras 





ooocde 001314 


ee 


A ed eG at dd me ad eS md a Og ed ed dg BooDDDODODOOOooOO 








eR aa Sica 


if 








ip vi 
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OoO000o00O 
Gt a Gm on ee Bet Be hme Be fee Dee ee es eens Bee es 


oe Pam Gene Yee fae Bes me Os P= Pt ee foe 





falolelejejeleel=jei=) 
= ree Gees me Bee Bet Jone hams ee fee eee 


£ESSESCLLEL 
pesyeny acy easy esy way ey ars 


ESRERG Ero 


££ 
S55 


one 013672 001403 
013674 005237 


SSF FEI NSS ESS 
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008037 


bOSO3 14 


001 


& 


So 
oe 


1 





B= 


8 


001346 


165150 


001412 


001340 





MACY11 30(1046) 21-JUL-77 16:06 PAGE Si SEQ 0050 
GET VALUE FOR SOFTWARE SWITCH REGISTER 
BEQ 35 BR IF IT IS 
INC SOF SH ; T RETRY COUNT 
9S: pe Réxsec, FrToPe+10" poe I Last SECTOR ON THE TRACK 
ISR PC, SCAWC : INING SECTORS ON THE TRACK 
CLR SOF SW a 
BR g *FINISH TRACK 
10S: 18 re, CK ; 
; ? 
BEQ yi BR IF fe 
Ne j 700 THE WRITE CHECK AGAIN 
118: CLR arore $ RETURN ESCAPE ADDRESS 
th | Ses SEE RETRY COUNT 
TST NEXT * WHOLE ’ 
SMI + *BRANCH IF IT IS 
an re ei ‘Scur LOOP ON TRACK ? 
BEQ les *BR IF eu on : 
:JMP -  WRTRKX : IN TRACK 
: ; 20 ALL MFG 
j 3 
12S: £ 4 H WORD 
Roy He ll Bee Hedin Pact 
14S: cr 2 a : TA ? 
aa eB1T14, (RY) ; a OR BE ASSCESSED ? 
T14, (RY) : TABLE 
cove sett SAVSEC : 
JSR PC, RESET : 
1S$: ADD #2, R4 : ABLE POINTER 
BR 148 : BACK 
16S: NOP 3 
WRTRKZ: JSR PC, TRKTST : AND CYLINDER ADDRESSES 
BR HDOREAD HReTunn rere IF bone ~ Bo Quick check OF DISK 
IMP WRTRKX *CONTINUE WITH THE FORMAT 
-THIS CODE CYLINDER FORMATTED CONTAINS THE 
*PROPER CYLI aborcse” and IS LOOKING FOR 
‘POSSIBLE POSITIONER ERRORS THAT MAY HAVE OCCURRED DURING THE FORMAT. 
HDREAD: TST MODE ; VERIFY MODE ? 
CMP tObbbb6 ,PATA §;PATTERN HAS BEEN ROTATED TO WORST CASE ? 
ere : THE CARRY BIT 
ROR pata *RO a PA TERN ; 
e CARRY= 
Be satfis PATA + PROM ai 5 
OP OCKAD BATE Se POU Te ERIFY OPERATION 
CLR. CKRORS EOLA HEADCR Cheek ERROR INDICATOR 


MAINDEC-11-DZRMA, RMO3 FORMATTER 
21-JUL-77 15:32 


Bie Bistey GBPS Bley 
age 


OZRNAB. P11 


oe FF = Pe 


4 
4 


HELE LLCELCLLS 


SEEEEE 





| 
| 
1 
| 
1 
1 
| 
| 
1 


+ + 
. 
+ a4 
> 





8 





001174 


001344 


001344 


MACY11 30(1046) 21-JUL-77 16:06 PAGE Se 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


PeSetpn «$83 SET Up FEDMERS IN CORE 

esrb "ree FOR FORMAT VERIFICATION 
EnToets 0 ,: if TOR § TRACK ADDRESS FIELD 
SROHD, FMTDPB+2 a FAL 


"Huai 
en 
a 





BUFFER 
» BEGTRK i t RESTORE BEGTRK 
»BEGCYL :RESTORE BEGCYL 


1S 
2s ep 16 MALT FOR COMMAND TO COMPLETE 
MOV a SESCAPE 
JSR PC, ERINOX 
ERROR 1 
mor 12 TY ennon 
Bir” SICCHCE> , FNTDPB#! ERROR A HEADER COMPARE ERROR 
BD StC<HCE>, S ONLY A ? 
a Meee 6 FR/DRIVE ERROR VERIFYING HEADERS 
: EER on ¥ : HEADERS 
JSR PC, LOP. CK _ CHECK Fi 
4g: CMP , BUFP ; IF EQUALS CYL EXPECTED 
BEQ : fh CYL c 
5 ERROR Fe op. iG Ba OOP On ER 
ze: CMP ENOCYL, CYLCK IF TIF Gast CTLANOER 
BNE jBR_IF_NOT FINISHED 
IMP sE0P FORMAT 
7S: INC YLCK H CYLINDER ADDRESS BEING CHECKED 
CMP 8822. ,CYLCK *LAST CYLINDER ? 
i i ; 
fe 84,FMTDPB+11  ;LAST TRACK ? 
T 8S :NO, THEN 
CYLCK + INDER ADDRESS 
YL,CYLCK . ? 
Be BL cK EXIT Teo vt ENDER 
CLR FNTBPB+L2 : YL #700 
CLR FNTDPB+10 ben TRACK AND SECTOR # 
6 opeeeve tsp) ;SWVE BeckYE 
HOV BEGTRK,-(SP) ° ;SAVE SEC TRK 
CLR 
ISR 
MOV 
MOV 
BR 


SEQ 0051 


BOS 


GET Vai FOR SorfuARE SuiTcH RecISTER 


: 
5 bse 
teas | real ET u 
ae . e 2 e 2 7 se 
5 Es a on = 4, Hogi “se By 
| bel ub Bit ae ees 
=H , Hae as ee boas i HS 
= Py ze. 2 Fy eS 
i at ses 


ith ah Leal Fe bd 


oa soe onltabe cconititaleaca 
‘Ses oe 3 a: : 


as rr eae aes 

po et | ee | 8h boas Se 
a PRESSES SSS SSS SST SSNS 
EY £85 Ee HUUSS eee retrarraet ss premeeset ener 


ooo ;RAAKAARAAAR AR RAR RR RR RR RR 
GOOOOO0000000000000 00000000009 0000000000000000 


ee ESRSEESESERERRSRSRR RRR NGON OSG RUE OUR ERR RRRRBeREURNAGS 


iE 


PC, UPDACY 
le 
iS 
-SBTTL END OF PASS ROUTINE 
“ 


11S: 





14 


COUNT 


IMAL ASCII WITH SIGN 


GNED DEVICE DONE ? 


oy 
RESTORE THE 


FOR TYPEOUT 


E Pres ¢ 


F 


COS 
21-JUL-77 16:06 PAGE SH 


»~ (SP) 


: Se atte Beef 
=e aftertngus 


a8 e 
tod _ 


: 


001214 


2 <i 


f Pe 
LT 


Soooooecooo 


epSenS 
22029 


001214 
100000 001214 


Se aclisees 


it L 


e aeaa Suitien 


ey ec Te oe 
Hae 


gageteesngesseese Et ae 
i 
w 


ee . ee es 
wa $ wn 
- wn 





3 la i tt neni 


MAINDEC-11-DZRMA, RMO3 FORMATTER MACY11 30(1046) 21-JUL-77 16:06 PAGE SS 
OZRMAB.P11 © 21-JUL-77 15:32 SUPPORT SUBROUTINES 


-SBTTL SUPPORT SUBROUTINES 
3 
; THIS ROUTINE DETERMINES THE ee TYPE 
ERINOX: MOV — 








me ‘ ea ad Bn 

00S626 sao Bite” » (PC) ; ie ¥ UNSAFE 

er toro "pang iu cr PARITY ERROR ? 
005626 BIT FATDPB+ 1 (PC)+ ree, , 

005626 ade i ee (PCD+ (ay Se 





J ERROR ? 


i 


33: 
uf: 
SS: 


aaa 
: 

SERSAaS amg 
ae 
aan 
nn 
Sisto 











5326 podeuy RTS PC * RETURN 
;ROUTINE TO CHECK FOR LOOP ON ERROR 
015330 032777 OO1000 163616 LOP.CK: BIT 8SWO9, JSWR ;LOOP_ON ERROR ? 
ot 5336 402 iB IF NOT 
1534C 1 169560 = 0 THE LOOP ON ERROR ROORESS 
pies Grey Boule Bi Frits cone Une he rane eta 
1535 . WORD BITiMtBrTistBIT12 $BITIOSBITOL ; "FATAL’ ERROR BITS 
1536) Ghe7a7 004000 o0SSS4 a SWLE,RM.REG+RMER] ;WRITE LOCK ERROR ? 
ies 000137 014506 2s oP Sop sR Ir THE FORMAT 
15374 000207 3S: RTS PC > RETURN 
THIS ROUTINE SETS UP THE INPUT TABLE FOR THE DRIVER ROUTINE 
1 1 00 005610 SETTBL: MOVE FMTDPB 
1eaos esse foes PRIDE Be fate f Fy Ni BITS 
teie Give Gem Bll Ry erent 
1 1 CLRB FHTDeB 0 ;SET eTOR 8 7 TO TERO 
15430 11 001326 005621 MOVB §-BEGTRK, 11’ ;SET UP STARTING TRK 
015436 013737 001322 O00S622 MOV BEGCYL;FMTOPB+12 ;SET UP STARTING CYL 


‘96.40.44. wT Try Morury Torury Turvr ror ruron 
eee eeel le 2: : fr 9 OD OPED CH CHE O° THT BH CD Oy 
OVO £WM-O VF REOA BNE A 


MAINDEC-1 


Pl 


: : 001332 

: 74 ' oocco4 001334 
" pu 

ie 001466 005622 

i be 000004 o0S621 

1 001332 

1 1447 


OOOOOOOOOOOOOoO0ooooO 


Bo bs Ds bm Po bo Be pee Gan 0 fe ee ee ee 





1 no000e 
5660 


LU eERER ERS 


EeePC ELLE 


SSAA ET I re 


CLR Rat NOS STATUS 
MOV GTRK, TRK CYL TRACK COUNT 
MOV Oe TKS : TOTAL COUNTER 
RTS 3 FROM 
THIS ROUTINE THE DISK BOR SING AND TOTAL TRK COUNT 
IT IS ENTERED AF 
TRKTST: DEC TTRKSC -SEE IF 
BEQ 3$ BRANCH IF SRE ACK 
CMP #4. , TRKCNT art THIS LAST TRACK IN THE CYLINDER ? 
BEQ 1S ;BRANCH IF aren ks 
iis Hi Ln : HUFBER — 
CHP SGc2. ,FTOPB+LE “LAST CYLINDER AND LAST TRACK ? 
CMPB 4 s«a84, FMTDPB+11 TRACK ? 
BGT NO 
DEC PTRKSC ; DECRENENT OnE TRACK 
BEQ 3$ *BRANCH I 
BR 1$ :DON’ T ae TRACK OF CYL822 
cs: ISR BC, UPDATK IN BUFFER 
1S: CLR TRKCNT : TRACK COUNT FOR NEXT CYLINDER 
CLRB 4s FMTDPB+11 pi TRACK ADORESS TO 0 
INC FMTOPB+12 “UPDATE CYLINDER NUMBER 
cH #823. , FMTDPB+12 sLAST INDER REACHED ? 
MOV BEGCYL,-(SP) ; GCYL 
MOV BEGTRK, -(SP) i SVE BE ERK 
CLR : Te STARTING CYL 
a ot PINITIATE HEAD WORDS 
CLR 10 as AND SECTOR 
CLR le : i 
CLR 16 ; 
MOV (SP)+,BEGTRK  § ;RESTORE BEGTRK 
MOV (SP)+,BEGCYL § ;RESTORE 
4g: RR , UPDACY ;UPDATE CYLINDER NUMBER IN BUFFER 
2s: ADD #2; (SP) ADD TWO TO RETURN ADRS 
3$: RTS PC ; RETURN 
THIS ROUTINE SETS UP WC & BA FOR REMAINING SECTORS 
“AFTER A WRITE CHECK ERROR 
SCAWC: MOV SAVMC, +4 :SET UP WC FOR REMAINING SECTORS 
ADD #516. +6 SET UP BA FOR REMAINING SECTORS 
INC FMTDPB+10 *ADVANCE TO NEXT SECTOR IN TBL 
CLR SOF Sid *RESET RETRY COUNTER 
RTS PC RETURN TO COMPLETE TRK FORMAT 
SETS UP T AORS, FORMAT BIT, TRACK AND 
ieee OR Me TR MEMORY heb ay ARTING CYL INFORMATION 


MAINDEC-11-DZRMA, RMO3 FORMATTER 
OZRMAB.P11 © 21-JUL-77 15:32 





3 
x 


SBse se 
NOMLWMH-O 


op pe ee 


Eee SP cece tna isis 


2: 
~ 
° 


TSREMIETEININ SS 


Dae me eS ee ae Be bs se be ne pee 


33 


eel eisieleielelael-l= =) 
Ge he Bas Ben bt Ge ee es fan Be fet en pe 
R eeeepROe ces 


i=] 
= 


b= 0 = he 


013701 











ake 


tas 


} 





N 








001364 


o0l2le 


001212 


MACY11 30(1046) 21-JUL-77 16:06 PAGE S7 
SUPPORT SUBROUTINES 


3SET UP SECTOR COUNT 
on fle 


:BIy Bit a oe (SET FOR 144 SPC 3/14/77 
fd FY Ary MODE 
2 gy auns 


Y TEADERS ARE LOADED INTO CORE 


ees crane at tatiasd sane ed eal arco | 


1S Ub Fesoen POINTER IN ro 


*GARBADE CODE FOR APT 
sEXIT 


; THIS ROUTINE UPDATES THE TRACK ADRS OF THE HEADER WORDS IN CORE 


;SET UP SECTOR cor 

Point eaten cot POINTER NER TO. TRK - SEC ADRS 
eat UP FOR NEXT HEADER 

(BOT Wo NOT LAST SECTOR 


SSTCLK1 , @8ERRVEC weep UP VECTOR FOR P CLK 


; CHECK FOR KWl1-P 
; VECTOR ADDRESS 
;SET UP _KW11-P VECTOR 


SETHOR: MOV MAXSEC, R1 
mY aig" 
MOV 
BIS #140000 R2 
MOV Ba ,R3 
fer 
ne 

is: OV song ke 
MOV Ra, {ROD 
ine 8 
Berg 
RTS PC 

UPDACY: nov MOXSEC, Rl 

ss fee” 

"BIE a7Aop, none 

2s: MOV para, tRo)+ 
MOV PATB, (RO)+ 
SUB #4, Re 
BNE 2g 
DEC Rl 
BGE 1S 
MOV (SP)+, Re 
INC STESTA 
RTS PC 

_ UPDATK: MOV MAXSEC, R1 

MOV 8BUFP, RO 
TST (RO)+ 

1S: ADD #400, (RO) 
ADD #516., 
DEC Ri 
BGE 1 
RTS PC 

ROUTINE TO CHECK FOR KW11-L OR KW11-P CLOCKS 

ST.CLK: Bt a 
TST 
MOV C,-(SP) 
MOV SCLOCK: a(SP) 
ADD #2, (SP3 


;POINT TO PSW 





COUNT SECTORS 
pice NOT ayrst SECTOR 
:] THE NUMBER FOR EACH CYLINDER CHANGE 


HACYI1 301046) | 21-JUL-77 16:06 PAGE SB SEQ 0057 
MOV —- SPR6, a(SP)+ PSH - PRI 6 
ww Le, er 
BR 4s go . 

STCLK1: ADD a4 ene ACK POINTER 
MOV ast UERRVEC VECTOR 
nov St vec -(SP) 1 oa 
Rov acLOCK at) ro rf ik WE TOR gs 
Salo, ERI 
HOV ul ais :SET KWL INTERRUPT ENABLE 

Ha: BY BRne | ARES RE AR 





;THIS CODE PRINT THE ABORT MESSAGE AND LET 0.P. RESTART 


16245 105737 001150 RESTRT: TSTB  $AUTOB sRUN UNDER APT ? 

i ee aci772 EBS stint ORR 1 Re 

i 1 Ot rere TYPE pt i TIPORPER Me NF ORMAT ION 

1 1 MOV (SP +, Ri READ IN LINE 

1 107} 1 TSTB Es (RL) jad BY <CR> 

1 1 BEQ 1S i BRANCH 

1 1127 000131 (R1),#°Y ;ENTER 

eS bee i 

i 000200 JMP 38200 et 200 ir HIT START SWITCH 
16310 1S: RTS PC 


;THIS CODE SERVICES A CLOCK INTERRUPT EVERY 16S 


1 
000207 

16312 01274 000020 CLOCK: MOV #16. ,-(SP) PUT MILLISECONDS ON THE STACK 

16316 004737 030404 JSR PC, RPTMR GO REPORT TIME 

16322 000002 RTI RETURN AND CONTINUE 
ROUTINE TO INTERCEPT *CONTROL C’ TYPED DURING PARAMETER ENTRY TIME 

1 1 001100 OENTER: MOV STACK, SP iA aendviry § 

i 024126 1S: IST TRNSHT TY E BPrED ? 

1 RESET Br AR we BUS 

16340 000137 01004 IMP MIB START AGAIN WITH DRIVE SELECTION 
ROUTINE TO TYPE THE PRESENT DISK ADORESS. ENTERED BY TYPING "CONTROL C’ 

1 1 16261 NEWSVC: MOVB OSTKB,-(SP) ;READ_FROM TTY BUFFER 

iPS 1 17905 BIC atC17? (SP ;STRIP PARITY 

i 17 CHP + bie ;CONTROL-O ? 

a ae 

16374 00002 RTI : : 


HOS 
21-JUL-77 16:06 PAGE 59 


MACY11 30( 1046) 
SUPPORT SUBROUTINES 


RMO3_FORMATTER 


21-JU-77 15:32 


MAINDEC-11-DZRMA 
Pil 


Bee jose e eee 
Hee tr of uty Be 4 yee 
ea pe i ae jE! 
cae | ft epee! | i 
eyse 5, = ot ee a2 Fs zEnas ve wig 2 
#65 Mary Sees y : ne J ei teget edie Sue 
SRT oe 
Stree | E 
Bret : : 
See cee seks esp aie mt fo 8, Be ig 
al HEE bus 
= with 
nopttsaor robot: 5 bh senatinasllepi-ronscts! Sabstaits, 
f Hod 8 a $ ease 





peye 


os Ra 
5 —_ 
oe od Set oe Oe oe one 


SSNS 
speeeetrenes 


Nn kd ad a at mt 








BSSSSruazesn2ee RUURSSBSBsR BS s PSF PPS PT BSGRG iw) 
a a hd ht hh tt te 
CED LDL LDC DCDCDC CD CDCI CDED ICDL CDCI CDCI COICICICICD 











eek PL -DZRMA 


Pe am Be fee bs ee fee bw ee 


I~ 3SHCEREGR 


fa Dn Dene cs fae Bee fae fae Be fees Bae Penn Fe Bs Bee fee 


Oooo0000oO 
ee 
gas 

£ 
BF 
Cs 


RESCH ESBIRRIBH= Bsa Iaaz 


Dm Om bt Be Bean Bt me fmt Bas bs Be B= ee be Be en Be ee Pe es pe Pe he Bo Be ee 





» RMO3_ FORMA 
21-JUL-77 15:32 


+ 
“bei 
a 
ae 





Same BEERS 


= 


TTER 





IOS 
MACY11 30(1046) 21-JUL-77 16:06 PAGE 60 
SUPPORT SUBROUTINES 


;ALL REGISTER USED ARE DESTORIED 


RECORD: MOV euSTAG+10, RL Hoc a IN ft tg 
; Bee . : if*;4 1S 
12, (RI) s CYLINDER NUMBER MATCHES ? 
ope FRTDPB+11,3(R1) Hix rae MATCHES ? 
CMPB FRTDPB+10,2(R1) oR MATCHES ? 
cs: (BS Bin ftrsetent brads Ne SPOT WS recmeeD 
CMP TAB+S12. ,R1 poe a 
I 3 IF NOT 
3S: a —_—en op oe 
: Move «= SAVSER BURT) iL EC OR Huraer 
mH RTS Scar ;EXIT 
y TYPE *MESG3 THROW AWAY THE PACK 
IMP = 8200 RESTART IF DESIRED ? 


;THIS ROUTINE SORT THE verre A ASCENDING ORDER 
;CALL SEQ JSR , SORT2 


SORT2: MOV #USTAB+8. , Ri 
MOV #12. : 
MOV 8US RO 
CMP #-1, (R1) : 
BEQ 4g 
1S: CMP (R1),4(R1) 
BHI 2s 
BLO 
CMPB (R1),7(R1) 
BHI 
BLO 3$ 
CMPB (R1),6(R1) 
BHI 
BR 3s 
2s: MOV RL) -(SP) 
HOV 2(R1),-(SP) 
4(R1); (RI) 
MOV BCR1),2¢R1) 
MOV (SP)+/6(R1) 
MOV (SP)+°4(R1) 
3S: ADD #4,RL 
cHP Ri, 
1$ 
DEC Re 
BEd 4g 
#4, R3 
MOV sUSTAB+8. ,R1 
4§: Ee b8 


;TOP POINTER 

; TOTAL s 

H ” 

a . 

; QUICK T 

: CYLINDER NUMBER 
;SWITCH THE TWO 

: ‘ie 

H THE NUMBER 

; SWITCH 

: POI 

; THE SECTOR NUMBER 
; SWITCH 

31 POINTER 

; N TH BLOCK 


‘SWITCH THE N+1 BLOCK TO N BLOCK 
*LOAD THE N+1 BLOCK 


‘UPDATE THE TOP POINTER 
: BOTTOM ? 





16 BIT USER 


JOS 
21-JUL-77 16:06 PAGE 61 


SUBROUTINES 


30( 1046) 


IT MODE 
NOER 
SS IN Re 
MODE 


NUMBER TO EVERY SECTOR 


i 


F_NOT 

STN, BEGCYL , BEGTRK 
HEAD FIELD IN THE BUFFER 
30 AND MAXSEC 

ineset THE BUFFER ADDRESS 


YS IN 16 


tLOAD LAST CYL 


;LAST TRACK 


;SET_UP 
SP) 
TOR 


ISAVE FLAG MAXSEC AND SEC30 
TABLE AODRESS_IN Ri 
: BRANCH ifoiNn Re BIT 


;SET MAX 31 SECTORS 


*LOOP 
LOVE TE 
RESTORE GEC 
SE 
3 
% 
=0 
A PACK 
TO 
e 
INT 
$ 
- TABLE ADDRESS 
BUT ER COUNT 
aSORESS 
ADDRESS 
NED 
BRANCH IF IN 16 BIT MODE 


Py ive 
>, (SP) 


BUFFER L 
ut 
= DAT 

I 
tLOAD T 


Ses!" a 
HOD OD OM OD OH OD OD OM OM OH OD OH OD OH OH OG OM OH OH OD OG OH OH OH EH OH OR EH OH ERED ecace G ae “Ss “A ace 
= ne = we al 
tom. ebbagatend eee ae 63 be Ge 
2 ys ae st bee ree a eh wn nitt tit ig 9 i’ qb des 
he soo tits =% <3 
at et a S utulatulal t beleaeget ey aoe vy a3 seeuy 


SEPENRSSSSSSSSSASSSSSSSSS So eae dds SeSeSSe ne Ses 


Ba : 3 


eas : 


: Se ee ee 


SE RUTORRERERSNA meee ONG aeRO ORR CRCR EP STe Saas 


T 
Aye ! 
+ dodo TT ed ad ed ed ee I eg SD od A ed og ed RB hs BUTT CS) a ee 





s, ph pk pbopt #. ph 2208 Piowinings + "H ue Th 


MCU CUCU CUCU CUCU 


MAINDEC-11-DZRMA, RMO3 FORMATTER MACY11 30(1046) 21-JUL-77 16:06 PAGE be : SEQ 0061 
OZRMAB.P11 § 21-JUL-77 15:32 SUPPORT SUBROUTINES 


3274 017364 012702 051630 MOV SBUFP+44+<S16. #10. > BUFFER ADDRESS FOR 18 BIT MODE 
1 rl 000013 4S: MOV #11.,R3 ; Fon § 
1 1 MOV RL, fe : 
1 1 000400 cS: MOV » RY ; WORD TA FIELD OF ONE SECTOR 
1 6S: MOV (R1)+, (R2)+ iL On ci 0 SECTOR DATA FIELD 
i One OCS BRA 
R1 ; ADDRESS 
a 001010 AOD Roan »R2 > SK ee = anal 
BNE a : F not Bone 
1 MOV (SP)+,R3 RETRIEVE NEXT SET OF SECTOR # 
1 1 MOV (SP)+'Re : 
1 12601 MOV (SP)+'RI : SS 
174 10105 MOV R1,RS :TEMPOR STORAGE 
17432 001361 BNE c$ BRANCH IF NOT DUMMY PAIR 
017434 000207 RTS sEXIT 





T THE BIT 14 OF THE 1 ST HEADER WORD OF THE BAD SPOT 
ING SEQ; JSR PC, RESET 
NDER ADDRESS 
aire Rave ERIDPBY LL eo! Thnck ADRESS 
trues BIS SavaEC Be ¥ >SET MFG cet USER BIT 
rl MOVB DRIVE. FMTX : FOR OPERATION 
i 5 MOV é +4 H COUNT 
1 MOVB FMTX#2 9 WRI AND DATA COMMAND 
1751 MOV SRBUF .PMTX+6 SUFFER 
1 MOVB C FMTX+10 :SECT 
1 MOVB il, u ; 
1 MOV 12° FMTX4+12 :CYL ADDRESS 
1 BIS #10000, RBUF 5 ASSUM i BIT MODE 
1 ST SEC30 IN 16 BIT HODE ? 
near eS ue brn 
BIC #10000, RBUF ; THE IT 
i = mh ™ i CPB ADDRESS 
1 BR 1S : IF QUEUE FAILS 
1 2s: TST FMTX+16 : ” 
1 BEQ 2g : IF NOT 
1 RTS PC *EXIT 
° 5 RERERRE REESE EE EERE EEE 


+¢ 


« 
+ 
. 
+> 
« 
x 
s 
x 
+ 
« 


nt 


IASCiT CHAARCTER 15. DICHT BETHEEN 0 AO 7. 


at 


- : 
$3¢ MOV OF fScht CHARACTER 
3¢ JSR Rock OCT Ore CK CHARACTER 
3 ; RETURN * CHARAC S NOT BETWEEN 0-7 
: RETURNE2 * CHARAC S IN R2 AS A 
: OCTAL DIGI 





LOS 


CK 
CHARACTER 


SSTRIP AWAY THE ASCII 


5 Rov FOR RETURN 


COMMA # 
Gl 
IGIT 
oe 


? 
BETWEEN 8-9 
; CARRI TURN 
; MOVE POINTER TO NEXT CHARACTER 


iCheck CHARACTER 
CARRIAGE RETURN. # (RL)=ADR#1 
RD) 
¥( 
T 
I 
“CARRIAGE RETURN"? 
BRANCH 
BRANCH 
BRANCH 
{UNKNOWN CHARACTER 


TO CHECK AN ASCIT -TER 
7 ene 
OF ASC 
0 
; 1 0 AND 
LESS THAN ZERO 
BRANCH 
THAN NINE? 
BRANCH 
CHARACTER 
; CARR 


4 
3 i 
= Gi : wo KOO 
E 5 3 
S eo e @ 
2 fhm fe flay, Bot tL hea 
‘ oe ee) tend — Ce oe oe ms 4 anna -$oos- -~ 
mig Suteesey SB" Bg EwenelOy 4 BeSeeses Fneeeegeyeeeeev 
as et — ze 
ye && _, wf __ EEREEE 

S babaesee 58 Stew Eabstune Sp pecceece Palanasnnranes 

R= ba es - 
a ee er : 
Za 3 Ci 1: . [ue ag4 ¢ 





et ed oe Sc 


B* gesssan agtveen IIYICEENE SAE AENE 


ee a i ed Ht Ot eg ee ed ee OG GS De) ed ed eh GH ed od 
=—— OOOOOOo0oO oo0o00000 











NR RARRR Som OMe 


fad pat at tt Dt tt tt a tt 


1h? ‘> 
et pt bt tt 
Wat lt get J tt bt tt Dt) tt tt Dt) 








MOS 


MACY1! 30(1046) 21-JUL-77 16:06 PAGE 64 


SUPPORT SUBROUTINES 


» .RMO3_ FORMATTER 


MAINDEC-11-DZRMA 
Pll 


21-JUL-77 15:32 


; RETURN 


RTS 


: 
w a 
: 3 , 
pe: , bob: : 
11) ee 
fog: £ i, & st 3 Bethe | 
4 ae 
55 Boat b aot 5,4 ait, ety iS: Bs n: - 
gar a Eh Bese Se 
eee hoe pat eee 
a 


z , 
# @ 
Bp penoeeaee EeSddchsraemnS tessa etanenana her hash ese 


| om 
a 
eS OH CH OH OS OH CH OS CHORE Oe ra} 2 4 on bt tt 





NOS 
21-JUL-77 16:06 PAGE 65 


MACY11 30( 1046) 
SUPPORT SUBROUTINES 


21-JUL-77 15:32 


Pil 


MAINDEC-11-DZRMA, RMO3 FORMATTER 


.SBTTL ERROR HANDLER ROUTINE 


JHHHHHHHHHIHHHHHHH HHH 
NCREMENT THE ERROR FLAG AND THE ERROR COUNT 


INE WILL I 
, 
HAL 
B 
L 
N 


AND THE ADDRESS OF THE ERROR CALL 
BY THIS ROUTINE ARE: 


;;ERROR=EMT AND N=ERROR ITEM NUMBER 


oti 
ee TYPEOUTS 


: 


Fara? 


a 


fen Wee 
ie tite 
w a 8 5 & § 2 
edd He) Te 
eorad ate 
great es Bs me if 
rivet ae cee le 
wi £ is 
UL i ts 
SEEEREGs balls i 
Seastvgenptaanat a, fetta 
E fee OS Re 
s 68 tl 
i a 





_ 
® 3 
wi 
fe 
—— 


-OZRMA, 


- 
4 
~~ 
- 


sane 


pp 
=O = 
—_ 


oO 
load 
WwW 
_— 
& 


METS LeLiae ena ceeacer inte cr maccumanaer cerns Ee 





fe 
zz 
be 





RMO3_FORMATTER 
21-JUL-77 18:32 


001000 160654 


0011 
0011 


001174 


001130 


001203 


pez 


12S: 


138: 


gu 
[ 
2f 


. 


| nome 


L ml 


— 


CG 
aR RO 
HOVE ITEMB, RO 
ASL 
2 
fy e ge 
BEQ 3$ 
TYPE  ,SCRLF 
TYPE 
.WORD 0 
MOV (RO)+,4S 
BEQ i 3 
TYPE  ,SCRLF 
TYPE 
.WORD O 
HOV (RO)+,R1 
fe | oe 
MOV (RO)+,RO 
MOV (RO)+,R2 
BEQ 17S 
COM RG 
at thors 3 
paid al at 
BC 
Se EY 1)+,-(SP) 
BR " 138 
HOV @(R1)+,-(SP) 
DEC 
BEQ 14S 
TYPE  ,LINSP 





= 16:06 PAGE 66 


THE “ITEM CONTROL BYTE™ 2 TO_DETERMINE 
A.3 re he THEN OB8TAI THE “ERROR 


FROM 
APPROPIATE TIRE ORNENT ION 


+ OTyha RO FOR ERROR NUMBER 
NUMBER 


SF ORN INDEX FOR ERROR TABLE 


SET ERROR RESSAGE (EN) POINTER 
ieeeiade ATURE SLING FEED 


ipicx tp pik: BR FEADER (DH) POINTER 


: CARRI CARRIAGE RETUR RETURN-LINE FEED 


;"DH” POINTER GOES HERE 
if CKUP em TABLE (DT) POINTER 


TCH 
ity FORMAT (DF) POINTER 


saree Oe BY RTE 9 
:NO_ INDENT 
Geis NS ARE (BF 
;OCTAL OR DECIMAL? 

OEE SCRII¢ OR TYPEOU 

::G0 TYPE--OCTAL aSCTT CALL DIGITS) 


£160 Tye @(R1)+ FOR TYPEOUT 
A AM on fl, Geet WITH SIGN 


iN ONT SEPERATORS 









=|-|=," 
rary 


-\ = 
‘ 


5 inde died 









i¢ 






-l— = 
, 















001173 


bo00d! 


000100 


020622 
021042 
000040 


001226 
001227 


001227 


CO6 
WAC title” 16:06 PAGE 67 


14S: 


ee Roe a sly 


11$ 
Re 


Ra 

~“~ 

Fs 
— 


= 
. 


3 
— 
yg 
_ 
a 


N-0 
ad 
— 


acRtess 
% 


3 


=" er 
Site Bet THE CHARACTER TO teat. 


Gi: 


i 
a) 
ee 


NG A beet plea 
TYPE ,» MESADR 


TYPE 
MESADR 


ig 


aauaesages® 


RE 
YES - BYPASS THE 


3DH por TER | 
3 OT R . 
;BR IF A *OT 


cee ye ey he fe Ei CieeacTeR. ; 


;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


Hee S THERE A TERMINAL? 
He HF ie IF NO TERMINAL 


oe 3 





DO6 
) 21-JUL-77 16:06 PAGE 68 SEQ 0067 





MAINDEC-11-DZRMA, RMO3 FORMATTER MACY11 30(1046 
OZRNAB.P1l  21-JUL-77 15:32 TYPE ROUTINE 
3510 1120% 2s: MOVB = (RO)+,-(SP) ; ;PUSH CHARACTER To, BE TYPED ONTO STACK 
sie rst (8p iE femateston POP 1T BEE He STACK 
60S: (SP)+,RO $3 RO 
1 ¢ ooo002 38: ae #2, (SP) $3 RETURN PC 
iS 000011 4§: BHT, (SP) HH IF <HT> 
1 5 r BEQ 8S 
6 716 000200 cee , (SP) ;;BRANCH IF NOT <CRLF> 
“. TST (SP)+ ;;POP_ <CR><LF> EQUIV 
TYPE aa ACR iD EP 
; 021030 cL SCHARCNT R CHARACTER CO COUNT 
le cs ISR STYPE 
: rats 6$ cHre srt )+ Hy ie Pe es. ? 
01374% 001170 MOV SNULL , -(SP) Gr Sie NEEDED 
05366 000001 7S: DECB  =-«1( SP) Does A TO BE TYPED? 
But 4 K s3BR TF NO- Nop THE NULL OFF OF STACK 
1 rat DECB SCASRCHT $§D0 NOT AS A COUNT 
000770 BR 7$ > :LOOP 
;HORIZONTAL TAB PROCESSOR 
2716 OO0040 QS: MOVB 3s #”—s« (SP) TAB WITH SPACE 
hoarse 020764 9S: JSR Pc, $TYPE! i be space 
000007 021030 BITB 87, SCHARCNT F NOT AT 
TST (SP)+ +: ne OFF STACK 


160174 STYPEC: set Nt T UNTIL CHORTNTER IS READY | 


PC)+ + RUN THE TER 
. >: CHARACTER COUNT STORAGE 





Uc GORE uses ESSA Rae Re 
ipsa? 021030 ne sduanent i Yee Lene CHARACTER COUNT 

le 000012 oo0oce 1S: CMPB ps a 3318 oe A LINE FEED? 

000207 


SCHARCNT: . 0 
STYPEX: RTS PC 


-SBTTL APT COMMUNICATIONS ROUTINE 





Mg atead: sak 
ay fi 
es ef Co ae ee 
4 ¢ , +4 . rn @ «4 
ry ayia ayaa) aa Pe Terry a’, ry 
J a, 


- 194 r divi: SSNS tee SPORT FATA, ERROR 
* : ° is 

ie ee Ya Le Weel 

Oe 112737 000001 021300 SATY4: MOVB #1,SFFLG ;;170 ONLY REPORT FATAL ERROR 





EO6 
-77 16:06 PAGE 69 


INE 


| 


RMO3_FORMATTER 


21-JUL-77 15:32 


MAINDEC-11-DZRMA 


DZRMAB. P11 


: : : 

vad bal Fa ag i 

filtaegilh. | 

sere@renes Soke: E 
iG ccm ie eae fe 
Ath ei ook in 
ALLIS subi is 
perobeSesonushessesaneens ge poual=nerrad i : 
: Aa a «4 3 ese oe ice 


Tia ee 


ee 


SiS SSeS ee HEEE A San eeeaewatl MeGce aya aa 


= 
ao 
br} Tcuau cunucd ne oencd ccuniad cuTucucuTTaTTTaITICITD dg nd ed od ot et 


a OPS S58 So O58 he | 


£yTRSSDSGR RST TENN TOR UR Ue ETP enreNe er pra trs 
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MACY11 30(1046) 21-JUL-77 16:06 PAGE 70 SEQ 0069 
BINARY TO OCTAL (ASCII) AND TYPE ‘ 


a ee ee ee ee en 


MAINDEC-11-DZRMA, RMO3 FORMATTER 
OZRMAB.P11 © 21-JUL-77 15:32 


i: ” MOV NUM, -(SP) ; NUMBER TO TyPeD 

* ‘Bite N ssNe1 10 TO 6 FOR NUMBER OF DIGITS TO TYPE 
% bd i 

is wT AEDYPE PEEPING 7805 aoe 


Ti eee Dalene mmierepstntelce:Remesboe herae’ senna tye 


MOV NUM, -(SP) ;;NUMBER TO BE TYPED 
TYPON 


i ::CALL FOR TYPEOUT 
t SSTYPOC---ENTER HERE FOR wees OF A 16 BIT NUMBER 
jxCALL: MOV NUM, -(SP) ;;NUMBER TO BE TYPED 
Hf TYPOC ttt FOR OUT 
02 STYPOS: Q(SP),-(SP) 55 THE MODE 
: ost LS is ARS Bit 10 te 
(SP) +3 ADDRESS 
f aed ee i Bs BS 
; 021524 STYPON: Ra; ~(se) ee Tie ITERATION COUNT 


tI SAVE RY 
ey ne NUMBER OF DIGITS TO TYPE 





BEERRRRR ORS I DCOGROn REND EERE EER ERBAR SAIS AARS SAN AD ANE 


1302 MOV 
fais ne 

ie BR 

i nove 

1s tte 

By 
; t MOVB »R4 

1 NEG RY 

1 ADD #6,R4 He eT roe IT FOR MAX. ALLOWED 
i HOVE & a RG ut HITCH 
Rs HOV sor iL *RS i Ce Pe 
; i 1S: ROL AS itso Int eo “c* 

1410 BR 3 $30 D 

ule 2s: ROL 160, BO. Thre DIGIT 

i 

416 ROL 

1420 MOV RS,R3 aad 

ines = Rete Ba MODE irre teas pict? 

14 BPL 7$ > BR 

14 BIC 8177770,R3 ree RID D OF JUNK 

Re BNE 4g :: TEST FOR o 

1 TST RY ;;SUPPRESS THIS 0? 

1 BEQ i} } ;;BR IF YES 

iWe = i Feu 0M nits Biel mscrr 
{yes cs: BIS 8’ °R3 + ARE ir { NOT 

1458 MOVB RB. BS ;;SAVE FOR TYPING 





3 
8 
8 
3 
= 
: 
S 


GO6 


SEQ 0070 


(1046) 
MOV NUM 
TYPDS 


Soe BRBBBC EEE ERSEERRUUSUBSURMateherEds 


stew 
Dade et B Fi, 5 5 
« ee 2 be i z fie Es a 
44 ie ¥ ize 72 memset ae g 8S. 
256 § cas g Gece §3 boning BGe8 w we 
= Gykeet, CSc, = tare? Sy SSS55yA5 ae 2 
oo hee 
Bo ee 
: io 2 SS 
r fae is y cs 
oe, Ml fips? Meme 828, , 
Bacnd8009 ooco & a aan ot -ubzrencundeds 
5 y 
i 


3 + a 


on 5 
73: 

8S: 

SOCNT: 
sae 

; 

;#CALL 

# 

* 
STYPDS: 
1S: 
es 
3s 


f f 
RE gigi 
Es Decipeaneeeey ene 


J SRE CeURRSeRNN TNS Heueladl a Uo eeeees ave 


a td at th ht Ht te MMMM MMT TT 


Ee ee 








HO6 


MACY11 30(1046) 21-JUL-77 16:06 
CONVERT BINARY TO DECIMAL AND 


SEQ 0071 


PAGE 72 
ROUTINE 


RMO3_FORMATTER 


21-JUL-77 15:32 


MAINDEC-11-DZRMA 
Pll 


af E g : 8 c 8, 
= 5 e : s r zo : a 
ae - : + uy f eee 2 
safes it seeouse 5 : Fg 
ra nn oe 
Sill t Lin 
ol nn ee 
Ven be ee 
7 3 ‘ pouse 2 2: re = pee 
-208 62 ys bere a: Be & §ecbset 
a a’ co Be ¢ Eeeetnce 
as Rye Og 
eng obubala apnnabactiss : eG Gea soe fl SBBSanae 
“ pias ‘jf 


Eval et 
Bilt ae 


8 sassses 
oS ee aaa 
Speen eee: = soe 


PRR AU RS DOS ERE anaes pe22 


Nd Od OE a a ed ed ed et Od eg HE ee eh ed oe 


SESSSSRSSSSSSRRSSSSSSSSSSSSS S8ss 
OUT Sy EuR 


Banna SIRKETI UIE TRUE SSSSES SSS EOEREDAE 








MAINDEC-11-DZRMA, RMO3_FORMATTER MACY11 30(1046) 21-JUL-77 16:06 PAGE 73 SEQ 0072 
OZRMAB.P11 = 21-JUL-77 15:32 TTY INPUT ROUTINE 





cal Te SERVICE RouTiNE 
fart NE WILL SERVICE THE TTY KEYBOARD INTERRUPT 
ING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 
AD Re saRta 
:#IF IS A “CONTROL-C” (#C) STKINT IS CALLED AND 
*#UPON RETURN EXIT IS MADE TO THE “CONTROL-C” RESTART ADDRESS (@CNTLC) 
STKSRV: MOVB = aS (SP) 53 IC THE CHARACTER 
BIC #0177, (SP) 3;SIRIP THE JUNK 
CMP (SP), #8 23S IT A CONTROL C? 
Bee ScntLc He A Font Ro -c (4) 
JSR. PC, STKINT INIT 
TST (SP)+ ;; CLEAN BK 
IMP @CNTLC *:CONTROL C REST 
1S: che (SP), 87 iis TT IT A ‘ConTROL 6 G? 
CNP G, SWR cae S CTED? 
BEQ 303 or La see 
Sait = 87, STKCNT FULL? 
313 ce |S i 
14 TYPE SBELL >:RING THE TTY BELL 
ai TST tSP)+ i CLEA TER OFF OF STACK 
! 3S: ee (SP), #23 2:15 IT A CONTROL-S? 
KS 2: DI TTY INTERRUPTS 
TST (SP)+ >: CLEAN orf Eig 
1 318: TSTB aSTKS *:WAIT FOR A CHAR 
BPL As 3 LOOP UNTIL ITS THERE 
MOVB KB, -(SP) $3 TER 
eee? HESS Conte at 
BNE 3is ’ + RANCH I 
HOV #100, aSTKS He TTY KEYBOARD INTERRUPTS 
328: INC STKCNT 33 THIS CHARACTER 
CHP (SP), 8140 315 IT UPPER CASE? 
CMP (SP), #175 Bo an AL CHAR? 
BGT + BRANCH I 
BIC #40, (SP) >:MAKE IT CASE 
4S: MOVE (SP3+. a@STKQIN ;;AND PUT IT IN QUELE 
021756 INC STKQIN He TE POINTER 
021756 021771 chp SIKGIN, aSTKOEND 55 $3 TH 9 
021762 021756 MOV SSTKQSRT,STKQIN ;;RESET THE POINTER 
saat SS: RTI ; RETURN 
2 s3 HEPKRESRERRRERHERESEE KERR ER RSE RRS 
*&SOFTWARE SWITCH REGISTER ROUTINE. 
*#ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 
394S t4SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP 


MAINDEC-11-DZRMA, RMO3_FORMATTER MACY11 30(1046) 21-JUL-77 16:06 PAGE 74 
PL eitaULT? 1s:32 TTY INPUT ROUTINE SEQ 0073 


-#CALL WHEN OPERATING IN TTY INTERAPT nOOE 
000176 001154 $CKSWR: cre #SUREG, SHR 5115 5 S0bT om SELECTED 


156664 TSTB = aSTKS iTS A CHAR WAITING? 
bt » EXIT 


( : MAKE T 7-BIT ASCII 
(SP), 8? HIS IT A CONTROL-G? 
2s eM, PUT IT IN THE TTY QUEUE 


wee 
ae 
agES Ra 


8 


53 eee 
; ECONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY I 


#SCONTROL-@ BEING fag eo eae I Bat, ; 





123727 001150 oooo01 és: CMPB Ss SAUITOB, & We RUNNING IN AUTO-HODE 
ae a f 
TST (SP)+ : CLEAR OFF STACK 
fe AGED BRAEMAR 
ll 1 001151 MOVB ae ICATOR 
366 104401 175 G (46) 
365 1640) 3202 SGTSWR: TYPE oR 
374% 000176 MOV SWREG, -(SP) 
1 TYPOC er: AecIICALL DIGITS) 
1 023213 TYPE ,SMNEW . 
: see 
105777 156562 7S: TSTB = @STKS H eer 
a7 100375 BPL 7§ :: IF NOT AGAIN 
376 geeu00 1774 156556 MOVB -(SP) 3 sPK CHAR 
375 16 177600 BIC 81C17?, (SP) MAKE IT 7-BIT ASCII 
I: 10 O21 000003 CMP (SP), #3 ITA -(? 
398 art ata BNE A, iF Nore 
383 1 023163 TYPE SCNTLC *?YES, ECHO CONTROL-C (?C) 
a ae 
sb les 1151 000001 CHP SINTAG, #1 He eg eo INTERRUPTS? 
% 103 000100 156514 MOV #100, 9STKS > ALLOW INTERRUPTS 
177 156726 8S JMP TL ; :CONTROL-C a 
1 1627 000025 Qs: CMP (SP), #25 3;I1S IT A CONTROL-U? 
1005 BNE 10$ * BRANCH IF NOT 
104401 023170 SCNTLU 3;YES, ECHO CONTROL-U (tU) 
952708 000006 20S ADD b6. SP : IGNORE PREVIOUS INPUT 
BR 196 PET'S TRY IT AGAIN 
70 021627 000015 10S: CMP (SP), #15 31S IT A <CR>? 
5660 Ban pe 000004 a its HBABNCH TE NO FIRST CHAR? 
4001 001403 BEQ 115 ::BRANCH IF YES 





MAINDEC-11-DZRMA, RMOS FORMATTER MACY11 30(1046) 21-JUL-77 16:06 PAGE 75 SE@ 0074 
TTY INPUT ROUTINE 


DZRMAB.P11 21-JUL-77 15:32 
2(SP), aSWR ss NEW 
t op HGlEha UP Stace 
98 


does Geser2 GLB GbR TMS is. 
22516 10H 48: ii FY KBD. INTERRUPTS? 


ERg288 
2 





— 1 T 
156420 a HOV #100, aSTKS : RE-ENABLE KBD INTERRUPTS 
168: JSR PC, STYPEC ECHO CHAR 
CMP (SP), #60 CHAR < 0? 
BLT 1 He Ie YES 
CMP (SP), #67 He >» 7? 
BGT 1 $3 F YES 
BIC (SP)+ 33 ve ASCIT 
ist a(S?) 21S THIS THE FIRST CHAR 
ae es RO SHIPT presen 
Ret «ap bi BON POR NEM ONe™ 
178: INC 2(SP) 33 COUNT 
BIS ~2(SP), (SP) ss ee 
188: TYPE  .SQUES AA ee 
‘ BR 20$ + SIMULATE CONTROL -U 


5 3 JUHINHHHHHHHIEEHHHEHHHHHIHHHHHHHHHHHHHHHHHIHHHIHHIHEHHHHEHE 
;#THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


a 1051.8. OURRECTER FROM, TH. GUELE 


;;WITH PARITY BIT STRIPPED OFF 





: MOV (SP), -(SP) ;;PUSH DOWN THE PC AND 
MOV 4(SP},2(SP) 3; THE PS 
ei he)" jiat Pam gage 
: wy 864§,-(SP) + POP x ae Fa 
Ls TST STKCNT ;;MAIT ON A CHARACTER 
a? are, OY 


CNT 
TKQOUT,4(SP) 5; 
UPDA POINTER 





RRR SRRNRSS aFs7 oe tesa eSB RS BEE NINN eS cre sone eee aRaS 


MOVB 
e760 INC 33 - 
1760 021771 cre TKGOUT, SSTKGEND’ ; j T O° THE END? 
127 021762 021760 - HOV 8STKQSRT, STKQOUT’ ; ipeset The POINTER 

3 JEBHHHHHHHHHHEHEHHHHHHHE SERLAE 
*KTHIS ROUTINE WILL INPUT A STRING FROM THE TTY 
:#  ROLIN 33 A STRING FROM THE TTY 
i RETURN HERE i AbpRese be Fast TER WILL BE ON THE STACK 
«i :: TERMINATOR WILL BE A BYTE OF ALL O'S 


MAINDEC-11-DZRMA, 


OZRMAB. P11 


+ 
— 

+ 
es 


+ 


BRE 


BREE 


21-JU- 


F 


1 





NACY1 30( 104) 21-JUL-77 16:06 PAGE 76 


SROLIN: MOV R3, -(SP) ;;SAVE _R3 
. cL (SP) s +: RUBOUT KEY 
33: CrP agTTViNtis, Ra He ? 
ROGER uo TER FROM THE TTY 
(SP)+, (R3) 33 
10S:  CMPB 9#8177,(R3) ft a RUBOUT 
rst (SP) He HIS THE FIRST RUBOUT? 
HOVE a’\, 9S He a Back SLASH 
MOV $-1, (SP) ;;SET THE RUBOUT KEY 
6S: DEC ;;BACKUP BY ONE 
cH , SSTTYIN He Ack fre” 
Move = (R3), 9S HS pantie eso 
TYPE 9s 33 
GR s8 ANO CHAR 
SS: peat if: ) 58 y KEY ? 
HOVE ey He A SLASH 
CLR tsp) ;;CLEAR THE 
7S: cP 825, (RS) $3 RACTER A CTRL u? 
TYPE LU He A “u" 
Ys a i 
gS: CMPB , (RB) HH A “4R"? 
a, Hts 
Mee: iN fe ety 
TTYIN HH I TRING 
us: TYPE s spe Att 
a eee 
3S: Feve (R3), 9S +3 me CRERAETER 
Se nm ach 
clr ae HH RETURN (THE 15) 
TST (SP)+ He ey FROM THE STACK 
Mn SMO tT AOJUST THE STACK AND PUT ADORESS OF THE 
MOV 4(SP} 2(SP) He FIRST ASCII CHARACTER ON IT 
Hoy asTTYIN, 4(SP) 
9S: BYTE g STORE For ASCII CHAR. TO TYPE 
TTYIN: : 15 3 12,8YTES FOR TTY INPUT 
«6 /#0/¢415)><12> 33 
SCNTLU: .ASCIZ /#U/<15><l2>  ;;CONTROL “U" 
SCNTLG: .ASCIZ /#G/<15><1l2> ;;CONTROL “G” 


MAINDEC-11-DZRMA, RMO3 FORMATTER 


OZRNAB.P11 21-JUL-77 15:32 
SH RG ROBE Ce 
5 BE ott BB 


ag 
1 


> 


and 
oo 
+ 
es 
+? 
<< 
++ 
— 
ane 
— 
+? 





MACY11 t—aV89 16:06 PAGE 77 SEQ 0076 


TTY INPUT ROUT 
SMSWR: .ASCIZ <15><12>/SWR = / 
SMNEW: .ASCIZ / NEW = / 


-SBTTL POWER DOWN AND UP ROUTINES 








ido OOMN ROUTING HMERRKLAREKERSAKUSSES 
: a C;; OR FAST UP 
YC sauCBePtaVE GTS SPRT OS? 
MOV RO, -(SP) PUSH RO ON STACK 
ny Rast i Re eek 
a BY 
» 7 (SP) 58 Mas 
MOV RY, -(SP) $8 RY T 
MOV RS, -(SP) ; ;PUSH ON ST 
HOV go8. (SP) HSS: ON STACK 
HOV SSPWRUP, J8PWRVEC’;;SET UP VECTOR 
BR 2 ;;HANG UP 
$3 x 4% Peete t Tee oY 
“POWER UP ROUTINE 
$PWRUP: MOV SSILLUP SPWRVEC ;:SET FOR FAST DOWN 
MOV S20VR5, SP piGeT SP 
CLR ; WAIT LOOP FOR THE TTY 
1S: INC $ WAIT THE INC 
Bie ( 4, 95AR + Bop NTO @SWR 
MOV (SP)+, *:POP STACK INTO RS 
MOV (SP)+,R4 33 NTO RY 
HOV ( +83 HH NT 
(SP)+, 33 NT 
MOV (SP)+,R1 ;:POP STACK NTO R 
Oy CMRPURO NC cit Be POMER DOWN VECTOR 
"OY ,OSPURVECHS ;; o7 a 
SPWRMG: TRO HE FALL oe encr BO NTER 
MOV (PC)+, (SP) RESTART AT BEGING 
SPWRAD: A IN2 ; ;RESTART 
mr a 2 0 ee ie POKER DLN URS COMPLETE 
SSAVRE: , tt puT one SP HERE 


-SBTTL TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS 


5 5 JHHHHIHHHHHHHHHHIHHHHHIHHEHIHIHEHHHIHHHHHHHHHHHHEHHHEHH HEHEHE 
;#THIS ROUTINE IS USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE 
;#LEADING NUMBERS. 


g 
ot MoV SNUMADR,-(SP)  ;:FIRST ADDRESS OF ASCIZ STRING 
i JSR PC, a#SSUPRS = 





MAINDEC-11-DZRMA, RMO3 FORMATTER 


OZRMAB.P11 


fer poms 
penta etatanttentstestetestetetetter ptt tot 


SBIFRLES=SBSIRRIGV—BIsartat 


SE RSGB ES s 
oT 
fwrvue 


aa 
BS ae be Oe bene 
now 


BS His 
13700 Oesee8 
1 o0000e 
10 Ol 
le Ql 
1 0000 
1 023602 


21-JUL-77 15:32 


ia ee eg = 
Bal fg 


12 023570 


MACY11 30(1046) 21-JUL-77 SEQ 0077 


16:06 PAGE 78 
TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS 


a oe arSP) RO Bota POINTER 
= fe belt 
8’0, (RO)+ 21S THIS AN ASCII “0” ? 
2:BR IF 
28: ay ed LOR IE YES 


RO,3$ ig yee TYPING 
*:ASCIZ POINTER GOES HERE 


roy pi HERI He stac 


-SBTTL SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE 


5 5 Ae ME SESE ESE SEE SE SS a a SE a a a EE 
j ATHIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN 
> UNS IMAL ASCIZ , 
te -(SP) | ;:PUT BINARY NUMBER ON THE STACK 
te "ey Se He 
* RETURN ADDRESS OF THE 1ST ASCIZ CHAR.IS ON THE STACK 
$SB20: 2(SP) 33 NARY NUMBER 
HOV aig tds, : sey SINTER 
ISR PC, a8SDB2D *:CALL DOUBLE LENGTH CONVERT 
ADD #5, (SP) : :ONLY ALL OM FIVE CHARACTERS 
HOY )+,2(SP) 2:P INTER 
RTS 3° 
1S: .WORD 0,0 
.SBTTL DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 
33 REEFSESLREPLRALHRLSSEMERHE SUN ER LEAK BELESELEHEKS SRE LKERRL ELK EE LEEKS 
THIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED 
: ¥DE MeL CASCII) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE 
*eCALL 
* MOV #PNTR, -(SP) ;;POINTER TO LOW WORD OF BINARY NUMBER 
3% jen PC, ae$0B2D . 
* TURN THE FIRST SS OF ASCIZ 
331S ON THE STACK 
0620: OV” B(SP).R2 HPjowp te bata NTER 
OT ees © tr aE sta 
MOV (R2)+,R1 ~~ STP ICKUP THE BINARY 
MOV (RB) Re 
MOV #10. 45 ;;SET UP TO DO 10 CONVERSIONS 
MOV #STNPWR, RY >:ADDRESS OF TEN POWER 





WAINDEC.11-DZRMA, RMO3_FORMATTER MACY11 30(1046) 21-JUL-77 16:06 PAGE 79 SEQ 0078 
Pll  21-JUL-77 15:32 DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 
De MOV 8STNPWR+2, RS 
: ss PARTIAL 
iS. 4g: or (R4), RI + her nact TEN POWER 
Ue. SBC Re 
o> Sua (RS) ,R2 
Ne: 3$ ;;BR_IF TEN POWER TO LARGE 
bes INC RB $3900. TO PARTIAL 
Je. BR es se 
ioe ae: OU 3S: 800 CBH)+,R >:RESTORE SUBTRACTED VALUE 
Xe ADD (R4)+,Re 
1 CMP (R)+ (RS)+ ;;MOVE TO NEXT TEN POWER 
Oe 000060 BIS #’0,R3 CHANGE PARTIAL TO ASCII 
1 nove Ra, (ROD+ He IT 
ea 4S: OF SRO 0 nay 
108 cine (Ro)+ + EN TNATOR 
a FisaTe ReSREG t RECTORE REGISTERS 
PC ; ;RE TURN 
iss asso STNPWR: {eno 3; 1.009 
160400 ;;1.0€08 
Tjge00 ;;1.0€07 
041100 041100 ;;1.0€06 
000017 17 
codes ;;1.0&0S 
ise eee ;;1.0E04 
4253 1750 1780 ;;1.0€03 
= 4Yy an ;;1.0&02 
le l2 ;;1.0€01 
4263 000000 0 
000001 , ;;1.0€00 
ice Bopot4 SDECVL: .BLKB 12. ;;RESERVE STORAGE FOR ASCIZ STRING 
ieee .SBTTL SAVE AND RESTORE RO-RS ROUTINES 
isn os REGAL AG GALA KARAS AAAS RARER RAKE RRRA RARER A AAA RRA EER R ARSE 
1 ;*SAVE RO-RS 
4272 s#CALL: 
ig * eanvnes 
ne j HUPON TURN FROM SSAVREG THE STACK WILL LOOK LIKE: 
*#TOP---( +16) 
3% +2---(+18) 
ieee 
4280 +i 
4281 :#+10---R2 


CO? 


HOR RR SAU BR 
SSA: 
Pek 
desrec: 
SBTTL 


SEQ 0079 


R 
es 
en 
3 yee 
eae geeouee Fis wi 
mae Sat oy Ly 
elev ie 
SeMPEwredy? weywaecuee me 2 pases g tty 
sem oem Gy bee , Ee 
a: or be 
Sees;  WiRwsere Heed ga, i 1 OF 
TV TTY Tae ++ +++ 4+ ++ + + a . h-_ 2 ; . 
a fit, 1st 
ro) 4 yi - fs 
ey abauataias D seneesneesr b dyye BePEOEE m BEE 





024016 
000004 


se De wes ue 


Qo00000000 
Sse te 
i An TTT ITER ERE SRE SRR 





MAINDEC-11-DZRMA, 
OZRMAB.P11 





a 


eaeceees 


RMO3_FORMATTER 
21-JUL-77 15:32 


MACY11 30(1046) 21-JUL-77 16:06 PAGE 81 0080 
TRAP TABLE oa 


;#THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;#BY THE “TRAP” INSTRUCTION. 


; ROUTINE 
STRPAD: Pl 


STRAP2 
$3 (1 ) TTY TYPEOUT 

fins iieeiches TReaiieeae) ee fie Res SNAG 
es Gd 


= 


am ad LAST CALL) 
) IMAL NUMBER (WITH SIGN) 


SGTSWR ;;CALL=GTSWR § TRAP+6(104406) GET SOFT-SWR SETTING 
t Teer TstOaaray TY Tia tel eS mute 
FOCiN CALL SRDC TN Trees oti} fy Ween TRING 


Ses (ie SMeE TRRTIGCIRE) SMG UU ae 


-SBTTL SINGLE/DUAL PORT RH70/RMO3 ORIVER (REV 1.0) 


3 COPYRIGHT (C) 
;DIGIT “mm OL NT CORP. 


pli A if FH LACEY/CHUCK HESS/C. CHEN 
HF HHH HH EHH HE REESE 
STORAGE FOR RMDS, HERI, RMER2, AND RMMR2 ON AN ERROR “2” 





He 


; TABLE OF DRIVE E ACTIVE IND 
a agy, te BRive A COMMAND 
F DRIVE AN ERROR RECOVERY OPERATION 


== 
rol 


oOooo0000 
Beeeeexx 
bata tatatata ta 


; TABLE OF DRIVE STATUS INDICATORS (DRVSTA=8 BYTES) 





SEQ 0081 


EQ? 


SINGLE/BUAL PORT RH7O/RADS OREVER CREV 1.0) 


RMO3_FORMATTER 
JUL-77 15:32 


21 


MAINDEC-11-DZRMA 


OZRMAB.P11 


S OFFLINE OR NONEXSITENT 


—~ 


 BEEREE RST Pyare 


8888ssse 


geetets 


Ive 1p fofexistent (DRVSTA=0, ALSO) 


¢ 
Tr BR 


a 
Qo000000 


enone es 


;DRVTYP=-1 IF NOT RMO3 


[os 


; TABLE OF 


OnuUMTMwK 


Seseeeey 


4 404 04 4 0 


SSSS888s 


BES=rVwez 
ed od ed ed od ed 
ee ee ee ee cD 


GELRERES 


NG FOR THAT DRIVE 
OR THAT DRIVE 


(TRNSWT=1 WORD) 


A_ONE WORD QUEUE. IT WILL CONTAIN THE ADDRESS OF 


- = 
o's 
BO 


eT ST ft 


ed I a 


GRSRELGS 


Pepeeeeeseerereerrrr tt tit titi 


THE 1/0 OPERATION. 


FO? 


te 
ay & : 
: : : rf 

z ma : g 2 

Be, — f : z 
Ae ome eee 
an nn 
ae ae : BRRRRERS 2 HEREERRS 
ceeae F&F = 
tbeee 8 Be 
NE o pobd © Bae © Bye © Sgce coccsoce 5¥ coccccce B8Ee © 
se . Gee GES ode : 
Ht Tete ft 
ee hae es : 
BLS TH Ud Et Peta reat 
p p of 8 & Siamese saeEEEe 
4 8 4 8 sRmere remem | 
1 § 8 &§ & 6 SOGGes 8 meeeKS =| 
Ek Pereeeseectveeversestevecsssstiivieetetiiseteeisetegee 


3 
& 


RADRRAAAR SSSR SESSERREAAARRRRERRERREEINESNIINNA AAD | 


f 


GO? 


Plt eLcyun77 israe © «SINGLE/DUAL PORT RH7O/RAO DRIVER (REV 1.0) Fm 


;SEEK FLAG (SEEKFG= 
Eom @ gr a Tre A SERREH Coe IN THE WINDOW 
Bare SU IMPLIED SEEKS, 
DISREGARD THE WINDOW 
024156 177777 SEEKFG: .WORD -1l 


; TIMEOUT TABLE (TIMER=8 WORDS) 
; THIS TABLE CONTAINS THE TIME ALLOWED FOR AN OPERATION 


169 177777 TIMER: - WORD -1 sDRIVE 0 
162 177777 , -1 :DRI 
164 177777 “WORD =] : DRI 
173 re eehes “ pat y 
172 177777 “tone -1 iP 5 
174 177777 “WORD -1 : DRI 6 
024176 177777 “WORD -1 : DRIVE 


;DATA TRANSFER UNDERWAY INDICATOR (DTUW=1 WORD) 


iD TSON CMERE NcO 107) IMPLIES DATA TRANSFER UNDERWAY ON DRIVE N 


024200 177777 DTUW: .WORD -1 
; ATTENTION canoe tes BYTES) 
rule eae NS THE CORRESPONDING BIT TO EACH DRIVES 


ATABIT: -BvTE S 


Be 8 eg 
a 
‘Evie 2oo)EDRIVE 


;FSRMO3 TO RH70 “MASSBUS CONTROL BUS PARITY ERRORS” (MCPE) ALLOWED BEFORE 
CALLING IT FATAL (MCPEMX=1 WORD) 


NOU LSW-O 





024212 000003 MCPEMX: .WORD 3 

, RMADR (THE FIRST ADDRESS (776700) 

SR ECE THe VECTOR ADCRESS (esto) AND RMUECHe CTHE BR LEVEL (9). 
024214 176700 RMADR: .WORD 176700 
Q24216 00254 o0c240 RMVEC: WORD 254,5#32. 

SMAXIMUM NUMBER OF LOOK AHEADS ALLOWED IS 4 (MXLACT=1 WORD) 
024222 000004 


MXLACT: .WORD 4 
;MAXIMUM DELTA DELAY IS 8 SECTORS (MXDLTA=1 WORD) 





MAINDEC-11-DZRMA, RMO3 FORMATTER 
DZRMAB. 


SEE e re OE URR OCR Esa LHRI ER SRE SERENE RIA Toa a CE CIO EER 


Pil 21-JUL-77 15:32 
Ge4224 001000 
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MXDLTA: .WORD §.#64. 
;MINIMUM DELTA DELAY IS 2 SECTORS (MNOLTA=1 WORD) 


Tran’ SeaRCH FoR 170 WINDOW IS S SECTORS (MXWNDW=1 WORD) 
MXWNDW: .WORD 5 
;DEFINITIONS OF THE RH70/RMO3 ADDRESS INDEXES 
RMCS1=0 
RMWC=2 


; AND STATUS REGISTER #1 (ORIVE REG. 00) 
: I ‘f REG) 6) ; 
ay I (DRIVE REG. 0S) 
=10 3 CC (NOT A DRIVE REG) 
RMER1=14 ; 


(DRIVE REG. 04) 
@ ORIVE REG. ) 
; BER f F ek 
RROC rain 1, ae G (ORIVE REG. 12) 
See ae Ram he 
RMERO=42 ft I 
merle fod hE ee 18 
jRH7O/RMOS DRIVER INITIAL IZATION, CODE 


rhe iar HPht ate ooo 


see THIS ROUTINE CALLS DRVINT 





; ISR PC, RMINIT 
{NOTE: THE *P* OR ’L’ CLOCK MUST BE STARTED 
ET: OES, com ‘ve TH THE PRESENT PRESENT PROCESSOR STATUS 
CBee Roe Glee aL REQUEST GuELES 
i 
1S: aR {RID CLEAR 
BLO i$’ *BRANCH IF 
TUM, Re ;LAST 
2S: MOV #-1, (R1)+ ; INITIALIZE 
CMP Ri, Re : DONE? 





I07 
MAINDEC-11-DZRMA, RMO3 FORMATTER MACY (1046) 21-JUL-77 16:06 PAGE 008s 
OZRARG PL 21-JUL-77 15:32 STNG BUR PORT Haat yah oAgiER (REV 1°58) = 
BLOS 2s LOOP IF NO 


g 
@ 




















4s CLR 18 SET ALL DRIVES TO OFFLINE 
q cp aed 
CLR At6 
: ray s CRS ;SETUP THE RH70/RMO3 VECTOR 
MOV gee, (Ra) ;FIRST ADDRESS OF RH70/RMO3 
i eh TT0S,RMCS2(R4) INT eo 
eS ,ORVINT nt DRIVE 
BoM 3 BR us OR PARITY ERROR 
: ae CURB TACRI) SET _DRIVE STATUS TO OFFLINE 
034; 
pe 37 I 8#C7,R1 ; MASK rie tates 
Bey400 Ol Bre i] Ri iStaaT Wl “18 = 
fe Bitircr) iG Pine Fok CATUe 10 sul ten PORTS ? 
ee st STB te (RL) iB ate? Poms 
4644 BPL et ; NEXT 
wee ee HOV es (SP)+, aaPS [a THe SSOR STATUS 
we RTS = PC ; 
eso — has Route ! ra IF ® ORIVE EXIST AND IF IT 15 
uees 21S To A “1°. THEN fe OPR W BRE GECKED 0 
a BBaaTa TESA ote Pak eat om OF MT STH, 
eSB Cat tov SO RVNUM, RL : 
ss ; nok RO DRYINT 
; RE 1 
; 
= e 0 DRVINT: MOV RS, -(SP) ; 
ewe ie BLP" fire Geta; ST Gave srevys os orn 
e445 i 1 34 CLRB ULDELG(RI) ; Lor FLAG 
: i ty nove SIL AASI CRY) CORMAND (8 SEIZE DRIVE) 
4 e 10000 000010 BIT tat terancsstmn’ yore Ive? 
72 eS 031502 ISR »SET. IE :6 wi WITHOUT A “TRE” 
ue % 105061 24066 18: CLR8 = DRVSTA(RI) SET DRIVE STATUS TO OFFLINE 








DOR PLL eits ee leva SINGLE /BUAL PORT meres aK REV 170) — 





4674 032764 04000 000000 BIT SBIT11,RMCSI(R4) ;SEE IF DRIVE AVAILABLE 
sr ee ga gC 
eG RETURN 
ee 
CMP pe pia ; NGLE hao ? 
Be uaz ial PORT 
4 »RS : RMU3 ? 
024076 ROVE s1, DRVTYP(R1) er FO TCATOR TO ’OTHER’ 
: He -(SP) *DO A “READ-IN PRESET” 
ae ene ; 
RMCS1 
T1e,-(SP)  ;SET FMT22=1 
34 UES a ree 
4Eo4 8 
3 ISR RO, RD.RM READ RMDS 
BS 
(SP)+, ; T_IN 
EPL oak wn i ERANGH TE-ATACO™ 
u 000016 MOVB ATABIT(RI), RASC) -CLEAR ATTENTION BIT 
4 JSR RO, RD. RM FIND OUT WHY ATA=1 
een 
Sn an ae 
: 024066 HOVE #-1,DRVSTA(RL) ; UNsArE INDICATOR 
4 4S: COM : ae DRY, AND VV 
4 BIC stc<BITI2!81T08!8 : I 
art 024066 MOVB 7 ORVSTACRI) De Ont Nr 7a 
at 6S: ey thdds ‘At ave eae Rind 
4714 7S: ASL Ri Coe 1 NDEX TO ADDRESS WORDS 
it 024160 HOV #2000. , TIMER(R1) estore jee TIMER 
471 024106 MOVE  #-1,DPINT(RI) SET PORT INITIALIZE INIDICATOR 
471 8$: my (SP}+,RS i RE TORE RS 
47 RTS *EXIT 
: REQUEST PRE-PROCESSOR-HANDLES SUBSYSTEM REQUEST 
: ; CALL 
\ : SR RO, J8RMO3 
: H PRTAOR + DORE OF POINTER 0 OF DRIVES PARAMETER BLOCK 
Mes pata far Ree eee N QUEUE OR THERE 
31 





MAINDEC-11-DZRMA, FORMATTER 
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FEFEPEPD ORD AD AAD 


4 
4 
y 
4 
4 
4 
4 
4 
4 
4 
4 





SEES LSLELSLLES 


Pil 





177776 
B60001 
000016 


GBafee 


Je ae Su 


026310 
032144 
000100 


d24i38 


000016 


000016 


000016 
000016 


MACY11 30( 1046) 
SINGLE/DUAL PORT 


page | 


ao 


ae 
wo 


PARR 


BER YRATN GRAS TAP 


mc 
Brg 


33 


Saag aM 


21-JUL-77 16:06 PAGE 88 
RH70/RMO3 DR 


@9Ps, -(SP) 


srvaeton 


BBP 
ef 
2 


o= 
3 
‘ 
Tw 
Fy 
~ 


: 3 
rf 


IVER (REV 1.0) 


ea Aa Beg ngs, INTERRUPTS 


rt ate 
— 


ants 
EYES O INIT THE DRIVE 


NIT 
NG PORT REQUEST FOR THE DRIVE ? 


eet Quest IN QUEUE 


THIS REQ. FOR AN UNLOAD? 


“UNLOAD IN QUEUE” FLAG 
Ts THIS DRIVE ACTIVE? 


i FF IE cerinrzer 


POINTER 






FATUS ONLINE? 


Ba 
— 
vl 


IT1S!BIT13, r teCReY al THE “UNLOAD IN QUEUE” ERROR FLAG 


RERSRIRERIR 
_ 
a 5 


5 
~~ 

v-_ 
~ 


SET. IE 
ACR1) 


ares tar TaN, , 166 


TEL 


econ 16h 
IT1S!BITl2, ech 





G0 HANDLE THE PARITY ERROR 

PUT REQUEST IN QUEUE 

oir sere 

ieeT ve INTERRUPT 

: F DRIVE OFFLINE OR UNSAFE 

i ole 
"SRIve NONEXISTENT 

I 


) =e ner 
Rage 
fee BAC Et OnIVER ait 





LO? 
SUSUR EEE SREB Ris ANE SD a om 
RTS 


ple O2S226 000200 RO ;RETURN TO CALLER 











;OPTIMIZER-CALLED FOR A PARTICULAR DRIVE 
> CALL 
: MOV #ORVNUM, R1 ;DRIVE NUMBER TO R1 
; JSR PC, OPT ;SETUP A COMMAND 
OPT: § SAVREG s SAVE 
MOV aPS,-(SP) : 
024130 BICB TABIT(RL) ,SRCHAT 
eRe 
Soy a (RY) ; DRIVE Pettitt y 
oo0000 MOV ae eeeet CRY) H RATYE 
000000 ey IT11, RMCS1(R4) : ‘. ps 
10S: rete DR TACRI) fe PR ive ?’ 
4 
000016 nee Pe POPOAT  i rere EES] FROn QUEUE INDICATOR 
TSTB ACRI) ; ORIVE ? 
BPL BR TO ee F NOT 
000016 MOV ITIS!BIT12,16(R2) STATUS/ERROR INDICATOR 
ss BR 8S ;BRANCH TO EXIT 
. MOV $111,-(SP) sL ONTO THE STACK 
; JSR RO, WRT. RM sL RESI 
: RMCS1 ; I - 
: fr #B1T11, (RY) : IVE AVA ? 
; BEQ 9s ; 
ooo0002 CHP 8150, 2(R2) : QUEST FOR 1/0? 
»cI4 3 CF D INITIATOR 
2s: TST DTU Hi Y? 
os ! ay PERE 
TST SEEKFG : SEEKS? 
OCA #9, LA : LOOK AHEAD 
BR 8$ *RETURN HERE ON A PARITY ERROR 
BR 4§ iG0 ART A 
38: ISR pe ,cIt *START A DATA TRANSFER 
4g: JSR PC,CI3 ;START A SEARCH 
BR *GO TO THE EXIT 
O24116 SS: MOVB 3s a1 (Rl) INDICATOR 
MOV Ri, : T WORDS 
ASL : 0 NOEX 
024160 MOV #10000. , TIMER(R3) i? ART 10 SEC TIMER 
‘ 6S: BR C17 ; SS THE PARITY ERROR 
100 7$: BIT #8 tT06, (RY) *SEE IF ‘IE’ ALREADY SET 
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fa tHe 


OZRMAB.P11 





+ +t .4t 


+34 


-——.—-— 8 = = = = oo 
J 


Sr 
x¢ 


+545 
+t 
+ . : -. 


J 


+ 


FD Fu) 
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ORS cet +R Te ee WITHOUT A “TRE™ 
8S: ab (Se aes i REC TORE Pre Status 
RESREG tRESTORE RO - RS 


;COMMAND INITIATOR 


f 


: MOV sORVNUM, Ri DRIVE NUMBER 3 
: MOV #0PB. Re : ss OF DPB 
: JSR pc,ct? *CI?= C11,CI3, OR CI4 
’ 7 e 
$ 3C TA 
; 3C RE BY DATA XFER 
: *CI4=NOT DATA 
Cll: JSR : . RE FROM “DRIVES WAIT” QUEUE 
MOV Ro TRNSHT *PUT REQ. SES ACTER pay QUEUE 
MOV Re : TO R3 
MOV RY : 
MOV RI,RMCS2(RY) = T ORI 
ADD #4;R3 : COUNT 
ADO 82,R4 $ 
HOV (R34, (R4)+ iL 
(R3)+, (R44 ; 
MOV (R3)+"-(SP) : CTOR AND 
JSR RO, WRT. RM : OAD (WR Te) ROUTINE 
MDA : G 0 LOAD 
MOV (R3)+,-(SP) "LOAD CYLINDER ADDRESS 
JSR RO, WRT. RM 
e woe 
MOV 2(R2),-(SP) sLOAD “COMMAND+GO", “A178A16", AND “PSEL” 
JSR RO, WRT. RM 
HOV Rt ,OTUM ;SET “DATA TRANSFER UNDERWAY” 
CI3: MOV RMADR , RY ;RMCS1_ ADDRESS 
MOV Ry RMCS2(R4) ;SELECT ORI 
MOV letR2),-(SP)  ;DESIRED CYLINDER ADDRESS 
JSR RO, WRT. RM 
e me 
10(R2),R3 :PICKUP SECTOR ADDRESS 
; SUB HXHNOM, RS *BACKUP BY MAX. SEARCH FOR 1/0 WINDOW 
: 
bb tie. 83 
is: MOV -tsP) ;COMBINE THE ADJUSTED SECTOR WITH 
BIC $177740,(SP)  ;CHOP OF ALL EXENTED BITS ,IF ANY 
MOVE 11(R2),1(5P) ;THE DESIRED RACK 
JSR , WRT: *LOAD DESIRED TRACK & SECTOR 


oO 
oe 
™N 
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#131,-(SP) START A SEARCH 
RO, WAT. RM 7 


eh aa » SRCHWT SET “SEARCH WAIT” KEY 


eg ae conve 
sate 18.11 A SEARCH 


10(R2),-(SP) LOAD beSIRED TRACK & SECTOR 


i 


CI4: 


ange a 


fey 
3 
3 
— 

5 
+ 
2 


RMOA 
C17 

ss fhe fiom «= BPR Ee 

2S: MOV T2cge», -(SP) LOAD EGAD DESIRED CYLINDen 
JSR , WRT: RM 
RMDC 
CI7 
BR Cl6 \ 

3S: cH 115, 3 1S Is TT aN OFFSET" COMMAND? 
nF RO, RD. RM iene Te OFFSET VALUE INTO. RMOF 
i Asfiat‘an = RRGEStER cRROF] 
C17 

ws: Bee bree AR FATE CTR- como 

; BRANCH 

CHP 1 i ! IT A RETURN TO CENTER? 
cr 8103,R3 j15 I AN “UNLOAD” COMMAND? 
HOVE #1 DRVACT(RL) itt RIVE ACTIVE pele 
Rove AL UGiRL) [Set TON a IN Enotes AG 
TSR RO, WRT. RM : 
i 
RTS PC RETURN TO USER 

SS: CMPB s«#143, R3 1S iT A nser FORMAT” COMMAND? 
ee B5, RO.RM READ THE OFFSET REGISTER 
CI7 
ik AS*iatian: = {LOAD SENTbo"< ECT. ANDYOR “HCT™. 


oO 
oS 
™“N 
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bl BR 1 
28 ie is 000141 6S: cree #141, R3 sIS ITA a3 REGISTER” COMMAND? 
: : ( } 
026136 01 000006 7$ MOV 6(R2),R3 iObut nal WHERE 
142 11 10 026160 10(R2) , 9S ; I, TE INpex FOR THE FIRST REG. 
: + ii »'RS OF FES. T 
101 gS: ,RO.RM : RH70/RMO3 REGI 
es Bie oC Qs: RACS 1 INDEX OF REG. TO READ 
Sei sel MOV (SP)+, (R3)+ ;GET THE CONTENTS OF RH70//RMO3 REG. 
HORS 2166 026160 CMP 9$ RS sLAST REG. READ? 
b1 BEQ i2 >GET if 
a: oo00002 026160 goo $e, 38 it . BY 2 
1353 000145 10S CMPB 0 s«# 145, R3 *15 ITA SELECT DRIVE" COMMAND? 
BEQ 125 *BRANCH IF 
497 11S: MOV R3,-(SP) *LOAD THE COMMAND 
031172 JSR ; RO, WRT. RM 
CI 
128: JSR PC, POPQUE 
000016 1S #8fT07, 16(R2) Ba Ee FROM QELe 
024154 SAVEFG Shee REGISTERS? 
BPL 138 F NO 
031364 ISR PC, SVRH70 ?YES--GO SAVE THE REGISTERS 
4980 13S: RTS PC *RETURN TO USER 
49g CIS: ASL R1 
001750 024160 HOV $1000. , TIMER(RL) ;SET A ONE SECOND TIMER 
000001 o240S6 MOVE  81,DRVACT(R1)  ;SET THE DRIVE ACTIVE 
RTS PC’ +E Turn TO M3 USER 
Clé: MOV R3, -(SP) "LOAD THE COMMAND 
031172 SR ; RO, WRT. RM 
C17 
4oag BR CIs 
be 010000 000010 CI7: BIT ene »RNCS2(R4) ok OREYE. I NON-EXISTENT ? 
1S: ist AvvTHING QUEUE ? 
es 404900 000016 ey a 1eches SET “PARITY” ERROR INDICATOR 
1364 Rese JSR PC SVRHZO sG0 SAVE THe RH70/RMO3 REGISTERS 
Rea at , BR. SE am F 
er 1 oe PC Q 
Ente eye CLRB tiakttte RTE AR GH tio IN QUEUE FLAG 
ra ge Bora RPTL OANE wep at 10 seme 
2 ce OCS TN PROGRESS CLEAR ALL-OF THE-FLAGS 
5006 024126 CLR TRNSWT 
177777. 024200 MOV 8-1, DTUW 
1S: RTS PC 
104412 CI8: § SAVREG ;SAVE RO - RS 
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es Fes oe ees Bw ets 
SUL ge Bs A =] Es 
Sa Eesshgnegangues, ane SewenS-weswenne pBBa ie eg wate Bae 
gta ae ase ey pad Rae 
£83 
Bg 
=f 





- usr 
x eee . . nih Bi kr 5.8. fal 
Pe ee ee ee Bat ww, .y. } 
uy Pitute 1 FF )t Wit ) 
O=-MTNwK. 
Saanaeaoe 
wv 
= 





MAINDEC-11-DZRMA, RMOS FORMATTER 
21-JUL-77 15:32 


MACY11 30(104%6) 21-JUL-77 16:06 
SINGLE/DUAL PORT RH70/RMO3 
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Boo oN For OSS IEREOU—S 
= = 
we EG 


SUSU UU UU UU UU 
bb ob be be bm he be 


rs 
of 
— 


Tw 
= 
oO 
8 





; INTERRUPT SERVICE ROUTINE 
ISR: MOVB 81, ACTDRV 


SAVREG 
MOV RMADR 
MOV DTUW, Ri 
BLT 1§ 
JSR PC, TD 
BR 2s 

1$ ISR PC, SC 
RESREG 


DRVACT(R1) 
8-1, OTUW 


CLRB 

ASL 1 

MOV 8-1, TIMER(R1) 
ASR R1 

MOV TRNSWT , Re 


RMOS 
4¢ 
I 
( 
gee {RL srowncr? 
See ee 
ASR R3 
MOV aePs 
JSR y RM 
RMLA 
pf ), RMLACRY) 
Cn ia 
TST (SP)+ 
Be {pro 
Ge  faciana 
A,R3 
BLT 3s 
CMP MNDL TA, R3 
BGE 3$ 
CLRB LACNT(R1) 
TST (RO)+ 
ey (RO)+ 
J Be, c17 


Pa al ip oy } 


THE LOOK AHEAD COUNT 


; IF YES 

GET DESI cT AND 
ora 

$ REG 

sPRIORITY LEVEL "7" 

READ LOOK AHEAD REGISTER 

CT LA NUMBER ? 

NO, CLEAR STACK 

;CALCULATE THE DELTA 


Het is cet 1S ae E 
ne tox TRE 


toch. 
1/0 EXIT 


Skip een, 
UNDERWAY” INDICATOR 
UNDERWAY 


Sean, OUEFER 


ee 

CALL SPECIAL CONDITIONS 
;RESTORE RO - 

ae, Arie DRIVER™ FLAG 
’ 


-SET DRIVE ACTIVE INDICATOR TO IDLE 
NO DAT VF REMSrERS UNDERWAY 


;CANCEL TIMEOUT 
;GET “DPB” ADDRESS FROM THE 





E08 
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5122 024126 CLR TRNSWT ; TRANSFER WAIT QUEUE--CLEAR QUEUE 

1 ; 000016 BIS $6107 (Fe) : Ee on 

101 mon ; * RD. : FRe=1)? 

1 acs 

grt 

i 024154 TST SOVEF C HEEVE THE Re7O/ROD REGISTERS? 

1 031364 - aOR PC, SVRH70 *YES--SAVE THE REGISTERS 

i 004737 032220 ' «SR PC, GETREQ ;GET DPB POINTER 

st a ooh 

i 025230 ISR Be. opt eeu optim ZER ves 

1 -THE RELEASE DRIVE IS F T DUAL PORT OPERATION 

1 927176 peri 000113 2s: MOV $113, (RY) ; Oh 

142 $32 100100 OO0016 3S er SBITIS#BITO, 16¢Ae) 1 

i ego = a aN ee OE ee 

14S 12714 O40111 MOV #40111, (RY) *ISSUE A “DRIVE 

1 12714 000113 MOV #113, (RY ISSUE A TO DRIVE 

14 000400 BR Sc CHECK FOR OR 

fe 

} ;SPECIAL CONDITION ROUTINE 

1 000016 SC: MOVB RMAS(R4),R3 READ “RNAS” 

1 BNE ‘BRANCH IF ANY ATA’ BITS SET 

: 031012 ISR ; , RD. RM READ CONTROL AND STATUS REGISTER 

1 C18 

: nt tee ites “ho DRIVES TO CHECK 

032310 A a a 

ies 031502 JSR bc, SET. Ie ier in ENABLE 

1 1S: Ss PC s 

1 2s: CLR -(SP) ;PROCESS ALL DRIVES THAT HAVE 

i seen Hove Ra, ) AN “ATA"=1 

1 CLR Rl’ 

168 SC3: BIT Ra, (SP) sATB=1? 

12 SCY: INC RI ROVE 24 THE NEXT DRIVE 

1 BNE SC3 ; BRANCH Ria MORE TO CHECK? 

ira Aisle EEN TO USER 

17 024106 Scs: S18 DBINT(RL) : INITIALIZING THE DRIVE ? 

217s 030246 IMP $C13 *PROCESS THE DRIVE 








MAINDEC-11-DZRMA, 
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cases: 








STNGLE/DUAL. PORT red a (REV 1.8) 


1S: STB DPROS(R1) ;PORT -REQUEST OUTSTANDING ? 
ite Sait fe gureraone como 
2s: pate ACR1) 3 CHECK IVE TUS 
TsT8 © ULDFLG(R1) ©»; UNLOAD PROGRESS? 
8 
: The rin 
5 PC’ SCi2 ee a 5 ReRE 
. : Do eve DRIVE INE sift (Ovi a 
BE oS ss DID ontve 8 
BIT IT14,RMERRS  ;WAS AN ERROR? 
BNE sBR IF 
3s av hRS+2, RS Yes p PRERI AND 
ss; Fw Beery ORT EA Siero on mon sec 
his ,scl2 pt Ri, RMER2, AND RMMR2 
6S: TSTB = DPINT(R1) rie a pa THe DRIVE ? 
BNE MORE DRIVES 
TSTB ACRL) ; x On atts 
BIT #81713, RMERRS+4 CHANGED ? 
BNE 8$ 
MOV $113,-(SP) : 
JSR RO, WAT. RM i WR COMMAND INTO RMCS1 
RMCS1 REG i tho 
Sc8 PAR EX ra 
7S: HOV {SP),RS_ page ioe in 
ERROR 2° i Beet ATTENTION 
a BR Sc4 
? JSR RO, ES. SAV 
i sini i 
a BR sc sero FOR vESe” 
: HOV 8-1, TIMER(RI) Fi : Tes 1 at nanan 
JSR PC, GETREG ict ne SOINTER FROM THE QUEUE 
MOV Ri; (R4) SELECT DRIVE 
ISR RO, RD. RM READ THE RMOS’S STATUS REG. 
ocp 
MOV (SP) RS T IN RS RS 
ROL (SP)4 Gee THERE” a 
BMI 1$ se 
Gre gimero ee BNE EAT rm oe 
BIS #1T1s!81707!81763, 16(R2) ;INFORM USER OF ERROR RECOVER COMPLETION 
1S JSR RO, RO. RM READ ERROR REGISTER #1 


Eek pit on een rope en MACY11 30(1046) 21-JUL-77 16:06 PAGE 97 SEQ 00% 
-Pll 2i-JUL-77 15: SI /OUAL PORT RH70/RMO3 DRIVER (REV 1.0) 


be Syanto OE RMOOL RMI REGISTERS 


e111. -(SP) SISSUE A DRIVE CLEAR 


; “UNSAFE™ CONDITION =1? 
: F YES 
sANYTHING IN QUEUE ? 


he 
000016 T1S!BITO7!BITUS, 16(Re) ; INFORM USER OF ERROR 


oR 
Mo 
BESLRaR 


BR 
1S: JSR , RD. RM READ DRIVE STATUS REG. #1 
aes 
MOV (SP), RS ;SAVE RMDS IN RS 
= ROL (Sp) jaeRRe=1? 
326 BPL BR IF NO--UNSAFE CLEARED 
525 024066 MOVB § #-1, DRVSTA(R1) ;DRIVE IS UNSAFE 
5255 JSR PC “SAVE RH70/RMO3 REGISTERS 
Bek 000016 BIS ast IS!BIT12,16(R2) |; INFORM USER OF UNSAFE ERROR 
>cS6 2s BIT #81T12,R5 s"MOL” = 1 ? 
BNE 3s BR IF YES 
024056 MOVB 8-1,DRVACT(RI) [ACTIVE ERROR RECOVER 
024066 nove 81, DRVSTACRI) ; ONLINE 
024160 HOV #30000 ., TIMER(R1) ;START 30 SECOND TIMER 
IMP SCY 
000016 BIS #81T15!BIT07!B1TO4, 16(R2) - INFORM USER OF ERROR 
SC? CLRB ar te Dale Te IDE ’ 
ISR PC, EMPTYQ > DUMP QUEUE 
iste : G(R1) 5 UNLOA N RMOGRESS OR QUEUE? 
CLRB § ULDFLG(R1) : UNLOAD FLAG 
000016 1S: MOVB ATABIT(RI),RMAS(RY) ; ATTENTION BIT 
TSTB DRVSTA(R1) s15 IVE UNSAFE ? 
oY tia. -csp) Be Lice con 
JSR ROL WAT. BM : COMMAND INTO RPCS1 
RMCS1 REGIST TNOEX 
2s: ie Sc4 tREEK Fan none DRIVES 
sca STB DRVACT(R1) 71S DRIVE IDLE? 
JSR PC, GETREQ : POINTER 
JSR PC;CI7 : SS THE PARITY ERROR 
BR 2s > CONTINUE 
1S: JSR PC, CI7B *PROCESS THE UNCORRECTABLE PARITY ERROR 
25: IMP sc4 *CHECK MORE DRIVES 
sc *“UNLOAD IN PROGRESS”? 


ae 
z 
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S5ar Gaol ies? Geseoe 024130 


454 34 54 54 4 
Pry yrutu 
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* 
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x 
> 
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x¢ 
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aia atat a 
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MACY11 30( 1046) 
SINGLE/DUAL PORT 


18: 


SCle: 


1S: 
SC13: 


18: 


4§: 
3$: 


CLRB 
ITB 


somites - 


Pr fant bo 
% 


w—- 
“Ww 


BagyPRABaBSDS 


gamma 
$04 


os 
— 


JSR 
JMP 


HO8 


21-JUL-77 16:06 PAGE 
RH70/RMO3 DR REV 


x 
z - 
a 


ORVACT(R1) DLE 
ATABITCRI),SRcHt DOING A SEARCH, OPERATION FOR 


es ;BRANCH T PRON GELE 
Fe svaizo : HAE tl 16 oe REG’S 
cm se Sear 
1, , TIMER(R1) oP ck 
OPT : REQUEST 
sc4 >CHECK FOR MORE DRIVES 
RI RNCS2(RY) {SELECT DRIVE 


FOUR_REGISTERS THAT 
;WILL TELL US SOMETHING 


3305 
paDae 
222-< 
ee ee ee 

a | be 


Rg, ORVINT s INIT. THE STATE OF THE DRIVE 
1s i TK ERROR EXIT 
(SF )+ POP un OFF OF THE STACK 
Rie 0 ABORESS 
a-1, TAMER(RL) : THE OER 
( * SELECT 
RT ART (R1) ,RMASCRY) ch oR TTENTION BIT 
NTC : INITIALIZING THE DRIVE ? 
DPINT(R1) : NIT INDICATOR 
, ORVI SO TNIT Barve 
:DUMMY PARI ERROR RETURN 
DRVSTA(RI) j DRIVE ON INE 
BR I -- START ORDER 
: ENTRY FOR THE DRIVE 
;BR_IF_NOT 
GETREQ GET DPB ADDRESS 
{TIS'BIT14, 16¢R2) _; Hee : THAT DRIVE OFFLINE 
PC, EMPTYQ EMPTY THE REQUEST QUEUE 


3$° 
#B1T11, RMCS1(R4) DVA SET. ’ 
4§ “SET THEN CALL 


Rl 
810000. , TIMER(R1) 


3$ 
PC, OPT : 
sc4 : PROCESS 


;/RMO3 TIMER ROUTINE 
; CALL 


SEQ 0097 
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DZRMAB.P11  21-JUL-77 15:32 SINGLE/DUAL PORT RH70/RMO3 DRIVER (REV 1.0) 
; MOV STIME,-(SP) ;ELASPED TIME IN MILLISECONDS ON THE STACK 
: JSR PC, RPTMR *CALL RMO3 TIME ROUTINE 
024132 RPTMR TST ACTORV ive CK “ACTORY s ACTSTR™ 
000001 024133 HOVE #1, ACTSTR nah 
C = RS 
CLR RI fs WITH DRIVE 0 
024160 1S: TST TIMER(R3) 31S THE TIMER RUNNING? 
oo00002 024160 a) Sts), TIMER(R3) : THE INTERVAL 
cows fe Fesro | eu eae Trew RUT 
2s: the RL a ‘ROVE NEXT DRIVE 
000010 CMP #8. ,R1 OUT OF DRIVES? 
BGT 1S : F NO 
3S: RESREG *RESTORE RO - RS 
024133 CLRB = ACTSTR *ZERO ACTIVE SOFTWARE TIMEOUT ROUTINE FLAG 
4g: MOV (SP)+, (SP) *ADJUST THE STAC 
RTS PC * RETURN 


;SOFTWARE TIMEOUT ROUTINE 
NOTE: THIS ROUTINE MUST BE ENTERED AT PRIORITY 6 
OR GREATER 





*CALL: STO 
: MOV ,Ri ;DRIVE NUMBER 
: JSR PC, STO > CALL 
: RETURN 
STO: MOV R1,-(SP) i SAVE Rl 
NOV Re (>) A 
MOV ane ‘Save RY 
14 MOV RMADR. R4 {GET ADDRESS OF “RMCS1 
19 HOY oRLAnteecRa) = SELECT TR ORIVE 
101 JSR RO, RD. RM ; “DRIVE STATUS REG” 
ST 
TSTB 4s (SP )+ 31S “DRY"=1? 
024106 STO1: ae INT(RI) het INTIALIZE THE DRIVE ? 
024116 ait DPROS(R1) NG PORT REQUEST FOR THE DRIVE ? 
BNE ST0e2 :BR F 
e412 MOV TRNSHT, Re PI WAIT QUEUE 
CMP aE Y ON THIS DRIVE? 
BEQ aS 
It * IF NOT DON’ BOTHER DRIVES 
I 000016 1S BIS Bc GeTRED wi. 
1364 JSR PC, SVRH70 Save GISTERS Sp 
000040 000010 MOV eBtTOS,RMCS2(R4)’;"INIT" THE MASS BUS 





SEQ 0099 


es 
3a 
Hed 
= 
a 
o 
Pp 
3 


MAINDEC-11-DZRMA, te MACY11 
OZRNAG.P11 © 21-JUL-77 15:32 SINGLE 


PS ATTENTION FOR THIS DRIVE UP ? 


E2 
mance & 
en 

a 

es 
ay 
a 


024106 TSTB DPINT(RI) TRING TO Fee ur THE DRIVE 
024116 AG (RL) Fue THE DRIVE ? 
BNE 07 TRMES REQUEST 
024106 ST03 rere Bet RI) ‘i Bh aa E DRIVE ? 
024116 ise (RL) EWEST PENDING ? 
177777 024160 1S: MOV vt TIMER(R3) fy TOP Fl TIMER 
026410 STOS: ise 18 HANDLE THE PARITY ERROR 
ST06: CL INT(R1) THE INITIALIZE INDICATOR 
Geoee et RE - Peet ACR i cLEAR INE 
A 024160 HOV a1 TIMER(RS) ; STOP TIMER 
fo eae nae? 
140000 000016 BIS aeITiS!BITI4, 16cR2) jINFoRe THE USER DRIVE NOT AVAILABLE 
77777 O24160 ST07: MOV O-1,TIMER(RS) THE TIMER 
116 CLRB § DPROS(RI) PORT REQUEST INDICATOR 
032220 JSR Pe Ge TREO ; 
TST Re ou DRIVE ? 
fe CSaat Onn 
490004 000016 MOV agiT 518172, , 164 NE QUSER OF PORT REQUEST ERROR 
i STos: JSR : may tos THE DRIVE 
031364 JSR PC’ SVRH70 ; ne REGISTERS 
ST09: nov (30) +84 
(SP)4)R3 ; Pa 
MOV ($+, Re jREST Re 
ws Ole 
ROUTINE TO READ A RH70/RMO3 REGISTER 
* CALL 
H JSR RO, RO.RM ;GO READ A REGISTER 
; INDEX REG. INDEX FROM BASE 
: ERRADR ; =-PROCESS ERROR STARTING 
: int EATS OF 
: RETURN : S OF REG. IS ON THE STACK 


O24212° 031160 RO.RM: MOV : ; MAX OWED 
MOV SAVE RO F 
gevel4 031036 MOV RMADA,RD.ADR § FORM THE DESIRED ADDRESS 
1 ADD (RO)+/RO.ADR =; 
MOV ) ; 
WORD : 











WAG OOMOOMmmaMmmaSC 
AIA AT ATA ATA At ATA At AtAtaA 


= 
st 
o 


Geta 031154 


MAINDEC-11-DZRMA, RMO3 FORMATTER 
OZRMAB.P11 21-JUL-77 15:32 
8 GIR BPP cos co000e 
BSiea BLEie Sbabio 
ites 010000 
S WK i 032310 
Ae 
Bie i ie 040000 
HB BEE ono 
| ne 
1 
1 
ie 
1 





A 


+x? 


« 
> 
x 
> 
x 
> 
x 
> 
x 
> 
4 
> 
c 
> 
c 
+ 
c 
+ 
x 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


= = 
xt 








PAGE 101 SEQ 0100 


DOORBO TD; 
Oo 
m 
sae 
= 


eo St OR RETURN 


a 
: DAT UNDERWAY? 
: NO-—BRANCH 
. “TRE“=1? 
OFF THE STACK AND 
ic ia ee neh "1" TO “TRE” 
i FORH ASDRESS OF HIGH BYTE 
sWR HIGH BYTE OF RMCS1 
RES STO 


sBRANCH_IF NO 
t FATAL ERROR EXIT 


;DATA TO BE L ON 
; THE 


MACY11 30(1046) 21-JUL-77 16:06 
SINGLE/DUAL PORT RH70/RMO3 DRIVER (REV 1.0) 
RD.WRD: .WORD o 
MOV <WRO, 2(SP) 
oS Rance, (ep) 
gry oe 
MOV MADR, - (SP) 
BIT eg1T13, (SP) 
BNE 1 
or iaP +, (RO)+ 
1$: , 
JSR RO,ES.SAV 
FGROR Bruw 
at oS rTi4 (SP) 
a bs - 
TST (SP)+ 
2s: Bf iT14, (SP) 
SWAB 0s« (SP) 
MOV RMADR, 3S 
INC 6-38 
MOVE.  (SP)+, (PC)+ 
3S: .WORD O 
DEC (PC)+ 
RO.RM2: .WORD ipa 
RD. RM3: ES (RO) 
MOV (SP)4, (SP) 
RD.RM4: RTS RO 
;ROUTINE TO WRITE A REGISTER 
MOV TA, -(SP) 
JSR RO WAT. RN 
INDEX 
RETURN 
: MOV MCPEMX, WRT. R2 
MOV 2(SP),WRT.WO 
MOV (SP)+? (SP) 
MOV (RO)+;WRT.AD 
BNE i$ 
CMPB 0s 150, WRT. 
BLT 1$ 
JSR RO, RO.RM 
RMCS1 
WRT .R3 
SWAB sé SP*) 
BIC 8#C7, (SP) 
MOVE  (SP)4,WRT.WD+1 
ADD RMADR, WRT. AD 


;FORM THE ADDRESS OF THE DISK REG. 





Ae tT eb ties A ORMATTER 
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tatataA 


= 
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DO 0 tee 






4 





= 
A 





MACY 1 
SI 


LO8 
Sh Bee ANB AOE 


(PC)+,a(PC)+ 


a 
on-- 
~ 
gcse 
— 

+> 


a. 


Be 
Sa 
Son 


G8 -8i58 


% 
—— fh 


aghgh°3 
*iz= 


s LORD ve eee REG. 


a 
EL PONE sae 


N_IF NOT FINISHED 
iT THE “PARITY ON WRITE” ERROR EXIT 


ADJUST FOR ERROR FREE EXIT 


;ROUTINE TO SAVE THE RH70/RPO4/S/RMO3 REGISTERS AS PER DPB+14 


ar ene -Ri: MOV 
WAT:AD; “WORD 
* ov 
rT 
ae 
RMER1 
WRT.R3 
BIT 
BEQ 
MOV 
18: JSR 
a 
DEC 
WRT.R2: .WORD 
WRT .R3: Rov 
WRT.R4Y: TST 
WRT.RS: RTS 
: MOV 
$ JSR 
SVRH70: FeyRes 
BEQ 
MOV 
MOVB 
MOV 
es 
1S: CMP 
BIT 
e 
es: RR, 
38: . WORD 
S$ 
MOV 
4§: CMP 
BEQ 
ADD 
BR 
SS: JSR 


-—— 
A 
vo 
is 
a 
Fs 


ZrSRRRE 
<i 
= 


o 
Ba 
es 
= 


Suara 
2 5 
RB 


yey 


; BUFFER REGISTER ? 
;BR F NOT . 

BR F : 

: AS ZEROES 


SELECTED REGISTER 
INDEX 


g 
, 
; 
; 
5 
HINCRENENT THE REGTS STER INDEX 
4 


;0PB POINTER TO Re 
;SAVE THE DRIVES REG’S 


i SOeUE ENTRY” FOR THE DRIVE ? 
BR IF NONE 


POINTER 


ADDRESS 
TORE We Beernier CONTENTS 


; CONT conte ING REGISTERS 


UNCORRECTABLE PARITY ERROR 


SEQ 0101 
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G3is08 dbaed? he ea tie. 


+ i TO SET THE INTERRUPT WITHOUT GETTING A “TRE” 


: SORVNUM, Ri ;DRIVE NUMBER TO RI 
; PC, SET. te SET “IE" 
SET.IE: MOV RY, -(SP) ; SAVE 


Soan 
£o 


. RY 
RY :p OF RMCS1 
Reece : BRE 
9 


luctse) ESET THES TRE® BIT OF THE WORD READ 
) ; IE" 
tl 


& 

_ 

nied 
-_.—0UCUC 
2% 


sesenane Bqgheraee 
é 
a 
a 


=. 


ae 
PP? 
2 


= a fh fh bm be de ee fee ee 
Se 
an 
pe 


sual RAMUNNEYSER: a2 


Resor! | ReREU 
saanee 
: 
—e 
cEEEEEEE 
ee 





+x? 
Ds bs et ee ee ee 


sii 


¢ + 
ee ee 


Clams oeioe Lame Loken 
PATE 
NOU L£WM-O 


20S 
E 

2 
S825 


Bee he fe ee 


wows wes we weeweses we 
tt 4 Ot 0 te 


aati taal 
NOW £WwrM-O 


Ripe 
Be 
uigesee 
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DZRMAB.P1L 21-JUL-77 15:32 SINGLE/DUAL DRIVER (REV 1.0) 
031 031646 QSTART: .WORD QORVO ;DRIVE 0 START ADDRESS 
x QSTOP: ‘Be vs Hig oR aaa afte 1 START ADDRESS 
: : STOP i ART DRI 5 
ee 
; : STOP -START DRIVE 7 
ie Sa i310 Baie & 
;DRIVE REQUEST QUEUES 
QORVO: . i 
ie 
QORV4: <BLKW 1 
ia. 1 
Q ‘ 
sROUTINE TO CLEAR ALL OF THE REQUEST QUEUES 
;CALL ‘ 
; JSR PC, CLRQUE 
CLRQUE: SAVREG ;SAVE RO - RS 
MOV NT, R2 : THE UE COUNTS 
CLR (Re)+ * DRIVES I 
es HENS EE 
CLR (Rods DRT $3 : 
MOV #8. : op RATING 
MOV sQSTART : SS OF THE QUEUE INTO 
1S: pee (R1)+, (R2)+ "THE QUEUE INPUT POINTER 
1 
Sie erase TE wee 
2s: MOV (hide (Rod+ *QUEUE OUTPUT POINTER 
DEC Rg 
Resrec sRESTORE RO - RS 
R PC 


;EMPTY THE QUEUE SPECIFIED BY Ri 


‘CALL 
: MOV R ;DRIVE NUMBER TO R1 
; JSR Be ERP Ya 


0321 et 031554 EMPTY@: CLRB rhea ;CLEAR NUMBER OF ITEMS IN QUEUE 
' ree : SPOT RS) .COUTPT ERS ;SET OUTPUT QUEUE POINTER=INPUT POINTER 


MAINDEC-11 
OZRMAB.P11 


A 
A) 


SeRTERS ETE VAON ORNS so Soo san= SSE IRAs Sas Sa RSE Ro MRE ER 





032142 


27 


Ue LA 





ORMATTER 
15:32 


000010 031554 
031SS4 
031564 


Baiees GB1eBe 


031624 031564 





031554 
031604 
1604 
031604 
031604 031626 
031624 031604 


MACYI1 30(1046)_ 21-JUL-77 16: 0s 
Si PORT RA7O/RNGS OAIVER (REV 1-0) reat 


RTS PC 
;ROUTINE TO PUT A REQUEST IN QUEUE 


SORVNUM, R1 ;ORIVE NUMBER 


aD PUT ncaueST IN GLEE 
iRETURN HERE IF REQUEST 15 TN QUEUE 


DRVQUE: CMPB —$10,QCNT(RI) —; IS ’ 
ae SE, RRL Aa 
wy 
cop 
BNE 
MOV 


nF 


Re,@@INPT(R1)  ;PUT THIS REQUEST IN QUEUE 
aretha "ror alSor the o RESET THe POINTER 


1 F NO 
TART(RI), onetinnee YES--RESET POINTER 


1S: ASR i 
TST (RO)+ s TAKE RETURN 2 
2s: RTS RO RETURN TO USER 
sROUTINE TO GET THE “DPB™ ADDRESS OF NEXT REQUEST IN QUELE 
y 
; CALL 
: R1 I TO R 
: ee OBR Oe TReG 00. re Ree Quest 
: RETURN ADORESS OF THE REQUEST 
: Rea IF NO REQUEST IN QUEUE 
GETREG: Oe GRNTCRID 1S THERE ANY REQUEST IN QUEUE? 
iss fe ORL ; | 
q HOV SQOUTPT(R1) Re ;PICKUP “DPB” POINTER FOR THIS DRIVE 
2s: RTS PC ;RETURN TO USER 
sROUTINE TO “POP” THE REQUEST FROM QUEUE 
CALL 
: MOV SORVNUM, R1 ;DRIVE NUMBER TO Ri 
: JSR PC, POPQLE CALL TO REMOVE oS CEST en 
: RETURN ; 
POPQUE : ECB QcNT (RL) ;DECREMENT QUEUE COUNT 
MOV QQOUTPT(R1),R2 ;GET THE “DPB” POINTER 
CLR QQOUTPT(R1) + REMOVE ADDRESS FROM THE QUEUE 
ADD #2, QOUTPT(R1) UPDATE QUEUE POINTER 
CHP QQUTPTCRL) ,asToPtR) - TIME TO RESET THE POINTER? 
Me HOV QSTART(RL) , QOUTPT CRI) ;YES--RESET THE POINTER 


CO9 


Lhe BeDheT oAtDk AED 


SEQ 0105 


MACY1 
SI 


QINDEC-11-DZRMA FORMATTER 
OZae Pit Ae Hes 2 15:32 


sRETURN TO USER 
CONTENTS OF "SESCAPE’ WHEN THE DRIVER 


eu 


Pas ser 


- THE 
RETURN fe-PRST THE ERROR CALL 
-GET THE ERROR CALL 
S MOVED HERE 
BE EQUAL TO OR GREATER/<CR><LF> 


,-(SP) 
ate LIMITS: /<CR><LF> 


STATUS/<CR> <LF><LF> 


)+, SESCAPE 


j 
S 
croilk ; 


was nN 
BBTON 
\\GNN ennnnN SSaRRAgS 


HN INININININININININININININININ SON 


a 


be 





ote ee oe 


st yy a 


° 
=) 


awl 


TOW 


ef 


Estee — 


ee 





or an 
= hw 
§ SS 
Vv] ww 


MaMa ies Adee nas 


MAINDEC-11-D0ZRMA, RMO3 FORMATTER MACY11 30(1046) 21-JUL-77 16:06 PAGE 107 SEQ 0106 
OZRMAB.P11  21-JUL-77 15:32 TELETYPE MESSAGES 


RII 395 pee eats Geel 0s MSELP: r3h, 0) ZEROS CRD LF) ENTERING 0,1 OR 2)/<CR><LF> 
Gewese Gaon 7 (Bh) noms? chee: 7” 
1 


Bit Le ee hel GK OM DRIVE. 7 / 
ee er’ 


3 
&3 


4 
28 
eseeese#ee#e## se 
wo 
™N Ne 








CLE ibe 
1 RR: 6 T 
; t! 
oosd : <CR>< ARTS AT 200/<LF> 
} MESG1: .ASC RIAL NUMBER (MAXIMUM 10 OCTAL DIGITS) /<CR><LF><LF> 
1 SN1: - ASC <(CR><LF>/ = 8 : /# 
MESG3: fee eater BAD SECTORS HAVE BEEN DETECTED/<CR><LF> 
I MESG2: ASCII <CR><LFD/ RARUFACTURE DEFINED BAD SECTOR/ 
p0s01§ : et Meat oN BAD SECTOR FILE ?/ 
ois NESGY “ASCIZ <CR><LF>/ALIGNMENT PACK, PROGRAM HALT !/ 
(1) $8 = 
SBTTL ERROR MESSAGES 
(1) 33 





b= ht Det pmo pee pas bon 


S 
22 


a 


be Dee Pie be fe es pe 


SRE RARE 


ITY ERROR/ 


ORT =a IE 

SONTROLLER/DE ERROF T WRITES 
CONTROLLER, DRIVE. ERROR DURING, WRITE. CHECK® 
Bi i i ESSrL Rae NOT ACCEPTABLE@ 
ICONTROLLER/D NG HEADERSS 


FrELE £ freee: IS Nr NEORREC TA 


RERBROOROORROR ROO RE 


VBsB2N8B 
a lanlantant anion tartar orlenlenlenkertertettetele 
“tfu 
4; 
oe 
4 
- a) 
“ 


ea 








ey eS 
a | Re 


(1) 
1 ASCIZ /RMAS RNCS1 RMERI RMDC RMDA/ 
1 ASCIZ /DRIVE RMER1 RMCS1/ 
1 ASCI I REG ADR DATA RMCS1 RMERL RMERC/ 
0511 Asc! I REG ADR GOOD BAD RMCS1 RMERL RMER2/ 





MACY 


= 









MAINDEC-11-DZRMA FORMA (1046) 21-JUL-77 16:06 PAGE 108 SEQ 
OZRMAB.P11 Aye Hes 2 iS meesaces —— 









at -ASCI JR AOORESS/ : < 
e - “tn. 8 
183. :ABkTS ZRmeel Rreco” Aree: RGR Rep eens ; 
Bie is ‘ay RRL RAD PSN er INDER TRACK/ 
$ * 
+> *PRIVE FRR PC CYLINDER TRACK SECTOR 
DHEDA: Ct 7RMCS 1 RMERL RMERC RMMR2 RMEC] RMEC2/ 
DHOOB: =. /RMC | RMBA RMAS RMLA RMDS RMMRI RMDT/ 
: Rett /RMSN RMOF CYLINDER TRACK/ 
+ RET? ZoRIVE ERR PC EYLNOR ‘RCTUAL HEADER 
DH24: fee} / MEMORY DISK/<CR><LF> 
seer /ORIVE ERR PC CYLNOR TRACK SECTOR DATA  ODATA/ 
03 100 .WORD ATTN, RM. REG, RM. REG+14, RM. REG+42, RM. REG+12, RM. REG+34, RM. REG+6 
037114 
a: 1p .WORD DDRIVE,RMERRS, RMERRS+2, RMERRS+4, ATTN, RMCS1 
* i .WORD DORIVE,RD.ADR,RD.WRD, RM. REG, RM. REG+14, RM. REG+42 
a: } .WORD DORIVE,WRT.AD,WRT.WO,RD.WRD, RM. REG, RM. REG+14, RM. REG+42 
‘ ite WORD  SRMADR 
“WORD DRIVE, SERRPC,RM.REG, RM. REG+10, RM. REG+12, RM. REG+14, RM. REG+42 
.WORD RM. REG+44, RM. REG+46, RM. REG+2, RM. REG+4, RM. REG+6, RM. REG+16, RM. REG+20 
.WORD RM. REG+22, RM. REG+24, RM. REG+26, RM. REG+30, RM. REG+32, DS. CYL, DS. TRK 
.WORD DRIVE, SERRPC,DS.CYL,DS. TRK, SAVSEC 
.WORD DRIVE, SERRPC,DS.CYL,DS. TRK, SAVSEC 
.WORD RM.REG,RM.REG+10, RM. REG+12, RM. REG+14, RM. REG+42, RM. REG+40, RM. REG+44, RM. RE 
.WORD RM. REG+2, RM. REG+4, RM. REG+6, RM. REG+16, RM. REG+20, RM. REG+22, RM. REG+24, RM. RE 
.WORD RM.REG+30,RM.REG+32,D0S.CYL,DS. TRK 
.WORD DRIVE, SERRPC, BUFP, RBUF , RBUF +2 
.WORD DRIVE, SERRPC,DS.CYL,DS. TRK, SAVSEC, SGDDAT, RM. REG+22 
.WORD RM.REG, RM. REG+10, RM. REG+12, RM. REG+14, RM. REG+42, RM. REG+40, RM. REG+44, RM. RE 








FOS 
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aye goss DOSSHE .WORD RM. REG+2, RM. REG+4, RM. REG+6, RM. REG+16, RM. REG+20, RM. REG+22, RM. REG+24, RM. RE 
005566 
gares > 005572 001366 .WORD  RM.REG+30,RM.REG+32,DS.CYL,DS. TRK 
on - pe 
000 : ,0 
DFe2: . 1 
000 : 6,0 
000001 ae OF3:  .WORD i , 
ooot} OFY: qe 1’ 
000 ‘BYTE 7,0 
ct oon ete; ae 
000003 OF 10: FORD ry 
000 ‘BYTE 7.,0 
036121 “WORD OHIOA 
000 "BYTE 7 o 
a 140 ‘Bre ping 
00000 OF17: .WORD 1 
034 -BYTE 6,34 
005 «O34 ie 5,34 
ose 000 - WORD 8.,0 
0364 2 : 
m8 oo we gee 
mt ar 
014 ‘BYTE 4,14 
001 OF 23: me L 
000 : ,0 
007 «O34 OF: BE 234 
eer st: 00 Wo it 8..0 
036475 “WORD  DH2OB 
01 000 ‘BYTE 8.,0 
74 “WORD  DHeOC 
004 014 -BYTE 4,14 
33 SSAA LKAGERRARLEG EER RA ALAR SAAS SERA ARE RARE REAR RRA RRA RARE AERRERE RE 
BUFFER STARTS HERE 
: 5, EAE A AE A AE 9 AS A a A a a a a a a a a a a aE 
037544 000000 000000 000000 RBUF: .WORD 0,0,0,6 ;BUFFER FOR HEADER CHECK 
037552 000000 
037554 BUFP: FORMAT AND CHECK BUFFER STARTS 


HERE 
;AND WILL OVERLAY ALL REMAINING CODE IN PROGRAM 
-NLIST BEX 








MAINDEC-11-DZRMA, FORMA 
21-JUL-77 15:32 


OZRMAB.P11 


sreo1 
ee ee 
Boo ONPTOL 





8 
— 
og 


LLRSS ESSE UROL 


fae fs fas fms Gat pn Bom bee Fen Be fe be to eb be es he 


ANFLHELHFHSPRSIRSESLR 


| 





| a 


eeleelesleeleeleele 
eleeleeleeleeleate 


MACY11 30(1046) 21-JUL-77 16:06 PAGE 110 SE@ 0109 
ERROR MESSAGES 


TITLE: 3} (CR? <LF> <LF> AMAINDEC-1 1-DZRMA/<CR> <LF> 
BN NEEDS: FE ERORY/<CR> (LED <LF> 
LOADRV: “feet «CR <LF>/T: onMAT” OR OR ’CHECK’ DRIVE 0, REPLACE THE ’XXDP’/<CR><LF> 


SE SEAS MOD i CeO aria en 


.SBTTL_ BUSADR : u BUS ADDRESS AND VECTOR ADDRESS FOR RH11 
OF Pe RHIT re ie fon the PROPER oDRESS. 
; Ir HILL ALSO READ THE ADORESS FROM THE TTY IF 
Notes THIS ROUTINE DESTROYS RO-RY 
; CALL 
: JSR PC, BUSADR 
$ RETURN 
BUSADR: TST CHGAOR ; INPUT FROM TTY REQUESTED? 
CLR CHGADR tYES--CLEAR THE REQUEST FLAG 
1S: MOV 8SRMADR, RO °F sEIRST AQ ADDRESS 
TYPE MRMCS 1 
MOV RO), -(SP) tPRESENT RNCS1 ADDRESS 
TYPE. LINSP ta 
ROLIN ° : ENTRY 
MOV (SP)+,R1 : OF ASCII TEXT 
ISR RS, CK. NUM : STORE NEW ADDRESS 
2s: HOV C,RO ; CHECK 
MOV tRO),-(SP) RH11 VECTOR ADDRESS ON THE STACK 
TYPOC iver It 
TYPE ,LINSP 
ROL IN 


PARAMETERS 
32 OF WHERE TO PUT THEN 


)+ 
)+ bus robes ADDRESS 
> RETURN 


ee ADDRESS 


- 
a 
++ 
7s. 


-SB CK (OCTAL ) 
; THIS ROUT INE CHE S AN ASCIZ STRING FOR LEGAL CHARACTERS 
AND FORMS AN IN 





HOS 
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CK.NUM - CHECK NUMBER (OCTAL) 


SEQ 0110 


RMO3 FORMATTER 


21-JUL-77 15:32 


MAINDEC-11-DZRMA 
Pil 


te Ns He jinosess OF ASCIZ STRING 


TS_IN THE NUMBER 


ve 

PO 

I Mtl bh DETECTED 
THAN ASCII-0 7? 


NTED BYTE 


;SAVE R3 
A 


afta a o ay 
z 

8959 & on > 4 oO zee 

Wwe 25% Ry x Esxee 


woz Sve nr RZ KINIME MST ONMERESTe aA 
Sage hadedadscausesenganaaae 
g 


& 2 a8 Fh 


il 
eee 





¢ ¢ : 
t Tri i yw whieh 
ICICI CIC) 





-END 


000001 


pd cnaaaadataa aa ca ca enna eee StS 


MAINDEC-11-DZRMA, eg FORMAT TER 


-Pll = 21-JUL-77 15:32 


g 


mt 
aa 





Then unnnnnnnnneeerae 


eau 





igre 
1389 
13268 


=i 


WwW 


bi wb 


Db bb BO bb bb 0 0 8 0 0 pe fone Gene fees bs fee Das ba fe 
& 


Pibiti ei hiie bitte: 


Reet 
Sonen 


Be 


a5 
te 
cs 


109 
SLL BUR LE Tuc el 


1389 =: 1430 


a7ase 4784" $102% S111# 5349 
535 5365# 


at bee 
ar 
Ww 
-_ 


2639 = 2817 


PERSE 


TEE EWWWEEEEEEEEWOEE 
2 PRBS Zan <p 


a 


- 
uw 
‘3 


3671 37138 
37148 


45378 4700 4795 4902 Se72 S291 S299 5300)=3=—s(«S3200Ss« S406 


SEQ O111 
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CROSS REFERENCE TABLE -- YMBOLS 


MAINDEC-11-DZRMA 
DZRMAB . USER § 


RMO3_FORMATTER 
Pll = 21-JUL-77 15:32 


1389 =: 1393 

14748) «=63466% S760 5763 
12468 

12498 

12508 

12518 

leSes 

12538 

1eS46 

12558 

i333 is 

lorse 13681428 

1 1429 

11S28 

11538 # 
3151 4 


eesee# 2 2302 2303% 2304 2305* 2306% 23078  2308% 
2316% 2317%  2318% S33 sseut e323 2329 2331 2333 
2338 e428 


gS 


: 
sag 


ae § 
Sink FA Ree 
3 


x e388 2362 27:6 2720 2762 2765% 


i 
mr 
a 
mscur 
i 
@moow 
T= 
NG 
eS 





352 2365 2763 2764% #2767% 2936 2939 
* 2. Sess" S250 Sax Sue 
I = 10638 
I = 10538 1 1930 2097 
~ i ites 1933 2097 2922 4776 5024 
= 10508 1060 5231 5524 
Y ° itae ita 2303 S266 
Hog s iniss ibe y ae? 1 2ig3 5585 
I s 10468 1056 4709 4976 5123 S23 S246 S266 S295 SSS7 
1 : igre It Sab etd 
= 10448 5399 
Tl s 10628 1 
in: re i Ge a Be on 
itis s 10418 eso 2894 4669 4691 4709 4778 4811 4991 5010 
IT13 = Thabe 2893 3495 Saad ae S204 S465 
Biri = nee ie 2682 2686 2688 2891 2922 4773 4808 $191 5331 S427 SH7y 
BITIS = 10388 2302 2320 2512 2525 2528 2543 2627 2710 4761 4773 4776 
nh | cong 4611 4995 5024 S026 5142 5231 S246 S256 S266 5331 5399 
it = 10618 3331 S434 
T3 s 10 10608 
is ie 
BIT6 = 000100 10578 


SEQ 0113 


KQ9 
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CROSS REFERENCE TABLE -- USER SYMBOLS 


RMO3_FORMATTER 
JUL-77 15:32 


2i- 


MAINDEC-11-DZRMA 


OZRMAB. Pil 


1 
£207 
3265 
4 
51 
2758% 
1989% 2832 2858 
1782 1789 Solba 
1780 1787 57578 


1761 
1759 


3988 
58s5 
275S* 
1981 
1754 
1752 


1951 
1747 
1745 


4990 

a 

5157 

2870 

3407, HH 1 
S765 5767 
1950# 

1740 

1738 


: 
sopmmead §& 2 @ Gesge age g 
ES aeNeOTEMTESE SoBe Paes anda aga SeAhcagee 


LAOS at ae UES ee eae aN Sen SO 


Legg 
2808 
3034 
1813% 5869 


1731 


_ 





perk qr ere Bt sine oA 


meee Reretene? ‘a fH-77- Jere, ce 116 SEQ 0114 


Ss Raed 


. EB sx 
ie OS 
1 a 
1 & 
1 8 
1 % 
i 78 Taage 1847% 476% 
ine tet io" 
= 11828 
= 12388 
28568 
4638 4641 4717% 5175 S200) = («S321 S323 5390 S408 S413 Seis 


5780 5782 





S3050 
S 

: 

ss: 

is & 
Pe 

a2 

es 

S 

d 


“4 
tT) 
== 
ees 
2 


4937% 4984 SO03# SOl4Y S029 Sil6# 519% S229 S260% S267% 5280 


ae 
££- 
aR 
3 8 
7- 
& 
§ 
£ 
¥ 
£ 


4620% # 4673% 44706% 711% 
4938% SO47# 5181 5189 Sede SeS4# Sebl# S273 





ele ygoS 4809 
isis. 1 1933 2087 2097 Yl2e 466S* 4680e 468S* 4774 SoO4ex 
1a : Ps d S780 5782 5803 
om Lures % 5780 5782 2539 5794 5803 
i 1448 

TUM 242 er 4615 4824  4e80x SOO4 #5007 S017 S030 SO3e* SO4l1# S10S S117* 5395 

= 000 12608 

Ss > 1 t | 

s 1e64s8 
T = 12658 
1 Be 
TO = OO0iO 12688 
TO? = 0000 12698 
Tos = oO 17708 
Ti 1669 57608 
Tig Hs 7 f 1732 #1739 «617% 1753 1760 1781 # £1788 ~«#=S7718 
T i 1 3 
T I 1378 é 
T i 1 ry 
T D. 1 ry 
1 { ie H 
Te 1704 rt 
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8 4675 


Sst Ot BF EB ce sre 


166 i] 
1716 § 
733 a 
a 
fe Ret 
ee 
aes 
1765 8 
1674 & 
1 ¥ 
1 & 
1 s 
1 a 
1 8 
1 8 
a 
g 
| 57578 
14498 =| 1956 209% 2099 2109 2349 2359 2361 2747 2756 
ei u . 1957% ecO47# e113 2351 2366 
2731 28888 
i 1 
1 





Sees 


82 
wv 
o 
ie 


ws 
~ 
PERE f 
es 
ae 
= 


a 








FMTX & at * * x x 
FHTI6 = Zoe 3303 3304 3305 3306 3307 3313 3315 
F s 11978 
= ties 
FY = 00 12008 
7 et 
¥ I3¢ 4 5019 S134 5185 S221 S282 5330 5398 S424 5431 57148 
° 19) 4345 4346 4347 4348 4349 4351 4353 4354 4355 4356 4357 
GTSWR = 1871 43518 | 





MAINDEC-11-DZRMA, RMO3 FORMATTER 
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OZRMNAB.P11 


ane eae 


ce 


mL 


a3 


Hot ee 





+ 
LIee 
+ 
g! 
+ 
cr 


++ 4+ 


mw 
{= 
{= 





soya ae 


Seaees 


Boosee aes 


5500 


1962% 


MACY11 30( 1046) 
CROSS REFERENCE TABLE -- USER 


1974 


21-JUL-77 16:06 PAGE 118 
SYMBOLS 


yore S876 


5885 
29178 
2Se1 2531 2539 = 2SS6 
2018 2122 2150 2379 


2607 382640 


2703 82823 


2661 


2865 


SEQ 0116 


2994 





M2INDEC-11-DZRMA FORMATTER MACY11 30(1046) 21-JUL-77 16:06 PAGE 119 SEQ 0117 
DZRNAB.P11 Apes 2 15:32 CROSS REFERENCE TABLE -- USER SYMBOLS 
S7s78 
1 57578 
1 4 
§ 
8 
57578 
2085S 57578 
1648 197% 1971% 2035% 2041% 2497 2933 
45628 5089 
11768 
ussge S072 
45588 
MC 101 2050 2054s 2071 208 #2090 2092 2863 
M1 007630 1985 20018 2012 
M1A 007720 2014 #20228 2032 
MiB 10046 2038 420448 3095 
Ke 1 208 2102 21068 2116 
an 10434 3! 1149 2118 2l2ee 2143 
MYA 1 1278 
KS 1 I 126 43=s 21488 
MSFX 192 19548 2860 
NBA = =_-~:100000 12748 
ep 3 11798 
= 11788 
NEWSVC 016344 2148 2345 30998 3121 
Te 1S018 a3 2505 2508 2524* 2542% 2544  2555% 2641 2643 2674 
NOTRM 1918 4 
NOTSAF 1924 57578 
CENTER 16324 ceca = Sale 3108 
OFDIR = OO000 12918 
OFFoET= Boot TS 13238 
OPI = 020000 12328 2620 
or . 4733 47948 5137 S304 S341 
PACK oot 149818 2174% 2227% 2253 2282 2426 2451% 2534 
PAR = 1 12228 
PARENT 2107 31298 
PAR 1561 15698 
: 1ee3 (e738 
PATA 001 14578 1976% 2124% 2381% 2385% 2389% 2393 2705 2708% 2710% 2711  2868% 3020 
PATB rare tio 1977% 2105% 2382%  2386% Seecn 2394 #8«6e711% 2869% 3021 
PATSEL 001336 14568 «1 * 21448 2383 2387 
PGE = Nnennn 11778 
PGM = 001000 12098 
PIP = 12138 
PIR@ = 2838 
PIRQVE= 10778 
POPQUE 032242 WBo? 4ae9 4975 5294 57298 
PRO = 000000 10008 





Wy FARRER 


SG Sense 





SP) 


og. 


ae Be 
ROE Ga7eus 
RDOAT = GoCIPT 
Ran = Sot 
AD:ARY G3101 
RD.RM1 03 


pp 





53333 


cee 
SBareseccs 


8= >, 
SSeRane Ges Tee 


3 
o £ 





= 


Ras 


TRAP EERE 


esesrene 


SEQ 0118 


5233. S248 


SEQ 0119 


PAGE 121 
a SYMBOLS 


RMO3_FORMATTER 


21-JUL-77 15:32 


MAINDEC-11-DZRMA 


OZRMAB.P11 


FR 

#3 

a : 

¢ #2 ; 

fee kG 

“gSiza «BR 
“inh nn ae: 
Tn ee 
SGM @ FS 
mabe So BEG 


SOSRAGMESS WSGG GR GG & aeebe Ge Eskegek 8 gre SSE 


5760 S765 S767 


: 
re 
53 f § 
ie ff 
a ee 


See eet Sa eae Ga 


Sa mei T=LTe 





SEER RRTEN RIESE EN 


aininin— 





SEQ 0120 


7 ec 


E10 


S436 8 86SS478 
3484 


3477 


Site $5798 
2659% 2664%  2673%  2987% 
es98 = «2723s BH 30091 
5433. S4378 
S2s5 $332 
899 77 ~=—s_ 2861 


3239 
S420 86 S426 
186 
853 
131 
3970 


5300% 


5418 
S144 
1846% 
4002% 
3947 


BR 


: 
ones : 
5 BRE 


idee Sttee Soice Saxe Boe R485 


4611 
5291 
2184 # e232 2571 
540Ss 
5416 
5132 
1840 
3947 
3908 


sanera 
gSSSiMer eyes MaRNAR RRNA 


oe ad ee ed 4 


4902% 
2917 


30620 30648 
53798 
5393 


31898 

"Sie 4796% 
le 1824 

30548 

30638 


2417 
1963% 
3309 
45138 
2175 
2715 
eal 
4671 


—— ; 


ZUURGERDRS ShEC AP SMN RN NnNnensnsass 


13278 
= 





es ¥sS 
SF Metts 


a Ease 
HT ig Aeriamasent B.scangnnpas oa 


SEQ O12! 
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RMO3_FORMATTER 
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el 


MAINDEC-11-DZRMA 
-Pll 





Ht 
PR SuRS 
Be Ramee 

see ames 


$338% 5355  5357% 
S287 Sesse S403 


5317% 
S394 

2370% $2373 2340 
S27 1% 


: 6 Se i 
: Sy Seee 
; . a te og 
sk ess 

: a 8 Sea 8 


2353% 
2956% 
43498 
1911 
15 
2115 
2833 
4071 
5876 
5875 
47S6% 


eH Pie 4ug9g2ex  S02ess 
214ee e2345% 3121 
1829% 
4860% S006% 
23S2% 
edtbk 
2550 
318 
. 
5873 
43468 


51168 
J2e4s 
47 
SH 
Sesss 


Bee Se 


SEI oaths vt MEA it rose aS 
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2046# 
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3189-3191 3215 3264 
2040% 2391 
2561 2646 2649 #82819 
2117% 2355 
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< ih! Se US Tad 


_ 


Bae ie 


gos8 B58 


eS Se 
es od 
— @ 
— bs 
G) wo 
S 


=e lot 
Sgiees 


re, 
¥ 
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S780 S78 5792 
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E 
a 
ll 28498 
ee4is 
14008 1867 
a 140 1851 
T 


2610% 2625%  2630% 
S470 8695530) 8=— $740 


na 


Se nepR HS 


fe 
nee 


atest 
2 


2919. + 3802 
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34499. 3507s: 3906 
2778 
3500 


4111 


4094 
2838 3464 
1377 
3477 
3978 


S 
3489 3601 
287 1% 
4023 
1864 
1376 
3459 
3951 


1867 

37938 

28S6 

3508 3657 
5890 
1834 
1089 
3458 
Je44# 
3923 
3903 3964 


of 5 & & 
— i * - = = 
a 8 : ee ee ee 


use. 
1816 
37088 
3697 
3756% 
2838% 
2070 
1888 


4151 


ef fs sehig & Bee 
S fhe 1M dalimlals 


41238 
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a SES SS Fae Hettavi ha weer 
Soon eee} Sagas 
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1388 i 3688% 3919% 3921 3927% 3949 3965% 3975 3987% 4007 
ay 1814 18168 
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13718 3657 
13758 3s 3657 
3644 


3657 
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® 43478 4348e 43498 43508 435i 43528 4353 43548 435S5e 43568 43578 
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3 


36448 3645 4009 
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° 
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14288 8 61882 1884 
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10958 10998 1107 11088 11108 11128 11138 11178 # 11268 11288 1140 
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56458 S646 


ak 

rH 

3 

s 
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z 
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1805 
40S2 
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e733 e784 735s 27; 

4286 
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2 
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32 
4306 
4131 
4353 
146 
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4353 


yy at 
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S214 
2195 
$531 
2610 
3848 
3689 
4348 
1122 
41 
4348 
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Bs | RSeaeos Sy GS SG § Be fF set 


S211 
4347 
20 
164 
4347 
1091 
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Ls 
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